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Editorial 



NUEVAS TENDENCIAS 



Abrumadora ha sido realmente la respuesta al 
sorteo que propusimos en el numero especial de 
verano. Ahora llega el momento de comprobar 
si vuestro nombre aparece en la relation de afor- 
tunados. Si estais incluidos, entonces enhora- 
buena. De lo contrario no desespereis, es inten- 
tion de quienes hacemos INPUT continuar ofre- 
ciendo la posibilidad de obtener algun premio 
lo mas a menudo que permitan las circunstan- 
cias. Este es el caso del ganador en el concurso 
convocado por Anaya Multimedia desde la re- 
vista. Como resultado acudio a la feria PCW en 
Londres uno de los leetores mas habilidosos des- 
cifrando claves. Segun cuentan las cronicas se di- 
virtio de lo Undo. Septiembre una vez mas ha 
sido prodigo en la aparicion de rumores y nue- 



vos productos. La feria britanica antes mencio- 
nada junto con el Sonimag han servido para 
apreciar como parecen confirmarse dos tenden- 
cias de cara al futuro de la microinformatica. Por 
un lado los ordenadores destinados a juegos con 
mas memoria, capacidades graficas y sonido. 
siendo buena muestra el nuevo Spectrum+2 y 
los MSX 2. Por otro lado, los ordenadores com- 
patibles PC de bajo precio de venta, situandose 
al alcance de muchos mas usuarios, sistemas que 
hasta hace poco eran un lujo asiatico para quie- 
nes no fueran empresas o profesionales. El de- 
nominador comun de ambas tendencias es la ba- 
jada de precios aplicada en septiembre. De lo 
que no cabe duda es que nos encontramos ante 
el umbral de una nueva etapa. 



LOS MEJORES DE INPUT 

Hemos pensado que es interesante disponer de un ranking que El resultado de las votaciones sera publicado en cada numerc 

ponga en claro, mes a mes, cuales son los programas preferidos - de INPUT. 

de nuestros leetores. Para ello, es obligado preguntaros directamen- Entre los votantes sortearemos 1 cintas de los titulos que pidais 

te y tener asi el mejor termometro para conocer vuestras preferen- en vuestros cupones. 

cias. Podeis votar por cualquier programa aunque no haya sido co- Nota: No es preciso que corteis la revista, una copia hecha i 

mentado todavia en INPUT. maquina o una simple fotocopia sirven. 

Enviad vuestros votos a: LOS MEJORES OE INPUT P.° de la Castellana, 93. Planta 14. 28046 Madrid 



ELIGE TUS PROGRAMAS 



Primer titulo elegido I I i 



Tercer titulo elegido I i L_ 



QuG ordenador tienes I i L 

L^Apellido I I i__i i l. 



J L 



J L 



J L 



J 1 L 



J I L 



J I L 



J i J_ 



J J L 



Fecha de nacimiento [ i L L 

Direcci6n I i i l l_J l l I I I — I — 1 — L 

'! Provincia I i i i I I I I J — U — I — I — L_l 

t _._ 



J I L 



Segundo titulo elegido L_ 



I I I I I I I I J L 



i i i 1 Programa que te gustaria conseguir I i i l 

i i i I Nombre l_J I I I I I i I I I L 



j L 2.° Apellido 



I I i I I I I I I L 



ii i I Telefono l_J i i i i L i i i i L 

i i i J Localidad I i i i i i l i i L — i — l 



J L_J L 



I I 1 L 



J 1 L 



l I I I L 



_!__! L 



J I I 



INPUT COMMODORE N. : * 




MONSTRUOS POR CORREO 



La firma Drosoft acaba de 
Lanzar La version en 
castelLano del programa 
"Monstruos por correo", que 
hace furor entre Los 
usuarios norteameri canos 
deL Commodore 64. En eL 
pr6ximo numero de La 
revista daremos cumpLida 
cuenta de eL. 

***************** 



RELEVO EN GALERIAS 



Thomas Enders, quien desde 
su cargo como jefe de 
compras de La divisi6n 
"ON-Line" did el empujon 
definitivo a La 
microinf ormati ca en Los 
aLmacenes GaLerias 
Preciados, acaba de 
regresar a Los EE.UU. para 
ampLiar sus estudios en La 
universidad de Yale. 
EL distribuidor de software 
SERMA no Lo dud6 un 
momento, haciendoLe entrega 
de una pLaca de 
agradecimiento por su obra, 
acto al que acudii una 
representativa muestra de 
la prensa especializada. 

***************** 



MUSICA Y TECNOLOGIA 



Acaba de ILegar a nuestras 
manos eL cuarto numero de 



La revista especializada 
"Musica y TecnoLogla". Su 
contenido es denso y 
cuidado, tratando gran 
variedad de temas que han 
de interesar a quienes 
consideran que saber de 
musica no es soLo dominar 
un instrumento. 

***************** 



EL 64C EN SONIMAG 



Como anunciabamos en estas 
mismas paginas. Commodore 
sigue dispuesta a continuar 
en La llnea deL 64. EL 
modelo que toma eL relevo 
es el 64C, que ofrece eL 
mismo aspecto externo deL 
128. La verdadera novedad 
La constituye el si sterna 
operativo GEOS, que trabaja 
con ventanas e iconos, 
haciendo mas faci L el 
manejo deL ordenador frente 
al tecLado. Asi lo pudimos 
constatar en eL reciente 
Sonimag. 

***************** 



NUEVO CATALOGO ABC 



La firma ABC analog, una de 
las pioneras en la 
importaci6n de software 
para microordenadores, nos 
acaba de remitir su 
catalogo del 15 de 
septirmbre. En el continua 
con su f6rmula de aglutinar 
los titulos de juego de 
mayor exito del momento. 
cabe resaLtar que en la 



secciin deL Commodore 16 
aparecen 17 referencias. 

***************** 



NUEVA LINEA INVES 



Investr6nica, La empresa 
que implanto Los 
ordenadores de Sinclair en 
nuestro pais, acaba de 
optar por una nueva 
estrategia en su intento de 
poner la electronica de 
consumo al aLcance de 
todos. 

Por un Lado entra en los 
equipos de sonido con una 
cadena LLamada 100 HF, que 
puede ver sus prestaciones 
ampliadas en base a un 
disco compacto y el 
sintom'zador digital en el 
modelo CD 300 HF, aunque 
tambien existe el compact 
disk por separado, DISC CD 
200. 

Por otro Lado entra en el 
mundo de los ordenadores 
compatibles con el estandar 
PC con tres modelos: INVES 
256X, PC 640A y PC 640X. 
EL denominador coman de 
toda La Llnea INVES es su 
bajo precio de venta en 
rea la ci6n con sus 
prestaciones. 

La entrada de estas grandes 
firmas distribuidoras 
parece que vienen a hacer 
realidad el gran sueno de 
sir Clive Sinclair, quien 
hace tiempo Lanzo equipos 
de HIFI a bajo precio en el 
Reino Unido, aunque 
utilizando La tecnologla 
mas llmitada de aquel 
momento. 

***************** 



Program**!®" 



DESENREDA 
TUS CADENAS 



CO MPARACION Y ORDENACIC 

DE CADEN/ 

TROCEAC 



6C0M0 E S DE LARGA LA CADEN/ 
EL PROCESO DE TEXTC 



Las cadenas de caracteres se utilizan 
en toda clase de programas; de hecho 
se usan en todas las aplicaciones que 
requieran algo mas que simples nume- 
ros. Aqui presentamos unas cuantas 
maneras de sacar de ellas el maximo 
provecho. 

Una cadena esta constitutda por 
una coleccion de caracteres. Puede 
tratarse de letras, numeros, signos de 
puntuacion o cualquier otro de los 



sfmbolos del teclado. Ademas puedes 
ponerlas juntas en el orden que quie- 
ras. 

Naturalmente lo normal es que una 
cadena contenga algun tipo de infor- 
mation util. Por ejemplo, la cadena 
«PEDRO DIAZ 241061 S» contiene 
el nombre, el primer apellido, la fecha 
de nacimiento y el estado civil de una 
determinada persona. En total cuatro 
elementos de informacion. A su vez la 
fecha de nacimiento se puede subdivi- 
de en dia, mes y ano, por lo 
que en realidad hay un total 
de seis elementos 
de informacion. 




Son muchas las ocasiones en las qu 
sucle ser necesario subdividir (tn 
cear) una cadena de caracteres pai 
extraer determinadas porciones de it 
formation, tal como ocurre con la ft 
cha del ejemplo anterior. En otn 
ocasiones puede ser necesario sum; 
las cadenas. Puede que a veces tan 
bien quieras medir la longitud de la c; 
dena o calcular el valor de alguna d 
sus partes numericas. Todo esto s 
puede hacer utilizando unas cuantc 
palabras clave del BASIC. 

La suma de cadenas, la Hamad 
concatenation, es la mas facil de estc 
operaciones. Para ejecutarla no tiene 
mas que utilizar el simbolo +. Si pc 
ejemplo A$ es igual a «HE» y B$ e 
igual a «AQUI», entonces A$ + B 
es igual a «HE AQUI». La concats 
nation es una operacion que se limit 
a juntar unas cadenas de caractere 
con otras; debe quedar claro que pon 
unas a continuation de otras, pero n 
suma sus valores numericos. Asi 
«439» + «241» es igual a «439241» 
no a 680. 

COMPARACION DE CADENAS 

EI ordenador, ademas de pone 
unas cadenas junto a otras, es capa 
de compararlas para ver si son igua 
les, como ocurre en este juego de adi 
vinanzas: 

para C-64 y Vic-20 

10 G=1:0N INTCRND(1)*6)+1 
GOTO 20,30,40,50,60,70 
20 B$="MANZANA":GOT0 80 
30 B$="NARANJA":G0T0 80 
40 B$="PLATAN0":G0T0 80 
5 B$="LIMQN":GGT0 80 
60 B$="HEL0N ,, :GOTO 80 
70 B$="PERA":G0T0 80 

80 print"Lshift+clr/home:so 
una fruta, cual soy?" 

90 INPUT A$ 



100 IF A$=BS THEN GOTO 155 

110 G=G+1 

120 PRINT M MAL!" 

130 FOR J=1 TO 2000 

140 NEXT J 

150 GOTO 90 

155 IF G=1 THEN PRINT "ACER 

TASTE A LA PRIMERA":END 
160 PRINT "ACERTASTE TRAS";G 

X;"INTENTOS" 
170 END 




La linea 10 pone a 1 el contador de 
adivinanzas y a continuation lanza un 
dado electronico para elegir una fru- 
ta. Las diferentes opciones estan al- 
macenadas en las Ifneas 20 a 70. Cual- 
quiera que sea la linea a la que vaya 
el ordenador, el nombre de la fruta co- 
rrespondiente se almacena en B$, pa- 
sando despues a la linea 80. Ahora tie- 
nes que accrtar cual es la fruta elegi- 
da e introducir tu conjetura mediante 
una sentencia INPUT con la variable 
AS. Esta variable se compara con AS 
y si hay coincidencia total entre am- 
bas, el ordenador presenta el mensaje 
«HAS ACERTADO UNA VEZ»'o 
bien «HAS ACERTADO» tantas 
«VECES» como corresponda en cada 
caso. Si A$ no es igual a B$, el orde- 
nador escribe «ERROR» y tienes que 
ensayar de nuevo una respuesta. El 
programa siguc adelante hasta que la 
respuesta sea la correcta. 

Fijate bien en que aunque la res- 
puesta elegida por ti sea la correcta. 
la condition AS = B$ no se cumplini 
a menos que la ortografia sea tambien 
correcta. Para que sea correcta, las 
dos cadenas de caracteres han de ser 
absolutamente identicas, tanto las le- 
tras, como los numeros y los signos de 
puntuacidn. 

Puedes utilizar esta tecnica de com- 
paracion de cadenas de caracteres 
para comprobar las entradas introdu- 
cidas desde el teclado, con una linea 
tal como la siguiente: 

IF A$="SI" THEN PRINT "ESTAS 
SEGURO?" 

Observa que la condicion anterior 
no se satisface si la palabra «sf» se te- 
clea con letras minusculas. 



ORDENACION DE CADENAS 

Tambien puedes comparar las cade- 
nas de caracteres utilizando los signos 
de desigualdad < y >. Podrias usar- 
los en una linea como la siguiente: 

IF A$<B$ THEN PRINT "LA PRI 
MERA ES ";A$ 

En este caso en la condicion A$ < 
B$ sc examina si la cadena A$ se si- 
tua antes o despues que B$ cuando 
ambas se colocan en orden alfabetico. 
Pero, jcuidado!, cl ordenador hace la 
ordenacion alfabetica atendiendo al 
codigo ASCII de cada letra: a la A le 
corresponde el codigo ASCII 65 y a la 
Z el 90. El problema es que las letras 
minusculas tambien tienen sus codigos 
ASCII: a la a le corresponde el 97 y a 
la z el 122. De esta forma, tod as las ca- 
denas de caracteres que empiezan por 
letras mayusculas se situan por delan- 
te dc las otras. 

Y lo que es peor, los numeros, los 
signos de puntuacion, los espacios y 
demas signos, tambien tienen sus co- 
digos ASCII, por lo que cl orden re- 
sultante para las cadenas puede que- 
dar totalmente trastocado. No obstan- 
te, utilizando cuidadosamente los sig- 
nos < y > se puede obtener una or- 
denacion alfabetica de las cadenas de 
caracteres. 

TROCEADO DE CADENAS 

Se puede extraer un caracter o un 
conjunto de caracteres del interior de 
una cadena. Esto se hace utilizando 
las funciones LEFTS, RIGHTS y 
MIDf. 

LEFT$(A$,numcro) empieza por el 
principio o extremo izquierdo de la ca- 
dena A$ y te da el numero de carac- 
teres que especifiques. Si la cadena A$ 
es «SR JUAN PEREZ» y especificas 
dos caracteres, es decir, si tecleas 
LEFT$(A$,2), el resultado sera «SR». 

Analogamente la funcion RIGHTS 
empieza a contar por el otro extremo 
de la cadena. AM, RIGHT$(A$,5) 
dara como resultado «PEREZ». 

Con la funcion MID$ puedes espe- 
cificar dos numeros, que correspon- 




den a la posicion de partida y al nu- 
mero de caracteres que ha de conte- 
ner el trozo. Por ejemplo, 
MID$(A$,4,6) empezara en el cuarto 
caracter J y tomara scis caracteres, 
dando como resultado «JUAN P». Si 
solamente especificas un numero, tal 
como MID$(A$,4), obtendras todos 
los caracteres desde el cuarto en ade- 
lante. 

El siguiente programa utiliza las 
funciones LEFT$, MID$ y LEN. Se 
trata de un juego de anagramas para 
dos person as. Una de ellas introduce 
una palabra que el ordenador seguida- 
mente cifra y presenta en forma de 
anagrama para que la otra persona la 
adivine. 



10 PRINT "LSHIFT+CLR/HCME]" 
20 PRINT"PR0GRARA DE LA 

ADIVINANZA' 1 
30 PRINT ,! ESCRIBE LA PALABRA 

A ENC0NTRAR" 

INPUT 7 



ik 




50 INPUT">ilCTRL+7]";W$ 
55 WOS=W$ 

70 PRIM "Eshift+clr/home: 

CC0MM.+7J " 

SO FOR N=LEN(W$) TO 1 STEP-1 

90 M=INT(RND(1)*N)+1 

100 A£=A$+MID$(W$,M,1) 

110 W$=LEFT$(W$,M-1)+RIGHT$ 

(W$,LEN(W$)-M) 
120 NEXT N 
130 PRINT "EL ANAGRAMA ES "; 

A$ 
140 PRINT n CUAL PIENSAS QUE 

ES LA PALABRA?" 
160 INPUT GUS 
170 G=G+1 
180 IF 6U$OW0$ THEN PRINT 

"ERRONEA, INTENTA OTRA 

VE2":G0T0 160 
190 PRINT "BIEN HECHO" 



Program** 10 " 



195 IF 6*1 THEN PRINT "NECE 

SITASTE 1 INTENTO":GOTO 

210 
200 PRINT "NECE5ITAS7E";G; 

"INTENTOS" 
210 PRINT ,; 0TRA PARTIDA 

(S/N)? ,f 
220 GET AS: IF A$0"S" AND k% 

<>"N" THEN 220 
230 IF A$="S M THEN RUN 



50 INPUT ,r >:CTRL+23";W$ 
70 PRINT "CSHIFT+CLR/H0ME3 
LCTRL+7D" 

Para el VIC-20 introduce los si- 
guientes cambios: 

Cuando ejecutes este juego, obser- 
varas que la primera palabra tecleada 
no aparece en la pantalla. Lo hemos 
programado asi para que tu oponente 
no pueda saber cual es. Cada ordena- 
dor utiliza un metodo diferente para 
conseguir esto. El Commodore lo que 
hace es escribir la palabra con el color 
de fondo de pantalla, de manera que 
resuita invisible. 

La rutina de cifrado esta contenida 
en las lineas 80 a 120. Lo que hace esta 
rutina es extraer caracteres de forma 
aleatoria de la pantalla y ponerlos to- 
dos juntos en A$ que se convierte asf 
en un anagrama. 

En la linea 90 se elige un numero 
aleatorio IVf'comprendido entre 1 y la 
longitud de la palabra, y a continua- 
cion la Knea 100 extrac la letra M-si- 
ma y se la anade a A$. La linea 110 
borra este caracter de la palabra ori- 
ginal, suprimiendo su parte izquierda 
hasta el numero M y anadiendo la par- 
te restante que queda a la derecha de 
M. La palabra resultante dene ahora 
un caracter menos, pero la vez si- 
guiente, la variable N tambien es un 
caracter menor. por lo que el numero 
aleatorio M esta otra vez restringido a 
la longitud de palabra. 

Llegara un momento en que se ha- 
yan extrafdo todos los caracteres y el 
anagrama quedara impreso en la pan- 
talla, momento en que el pro grama le 
preguntara a tu oponente cual era la 
palabra original. Cuando teclees en la 
sentencia INPUT la palabra correcta, 
el programa te responde cuantos in- 



tentos has necesitado y le brinda una 
nueva oportunidad. 

Sena muy sencillo modificar este 
programa para que se puedan leer las 
palabras a traves de una serie de sen- 
tencias DATA en vez de utilizar sepa- 
radamente un INPUT cada vez. Tam- 
bien puedes incluir un sistema de pun- 
tuaciones que, por ejemplo, asignc 
diez puntos cada vez que se acierte a 
la primera. nueve puntos a la segunda 
y asf sucesivamente. 

Otro posible uso de este metodo de 
troceado es la manipulacion de fechas. 
Incluso en los casos en que las fechas 
se introducen en forma de numeros, 
por ejemplo 27/03/51, en vez del 27 de 
marzo de 1951. Despues de todo, pue- 
des manipular una fecha expresada de 
esta forma con las leyes normales de 
las matematicas. Tambien puedes pro- 
cesar diferentes partes de una fecha 
por medio de la aritmetica. Puedes 
calcular por ejemplo la edad de una 
determinada persona tecleando su fe- 
cha de nacimiento, o calcular el nume- 
ro de dias transcurridos entre dos fe- 
chas dadas; no tienes mas que mane- 
jar separadamente la parte de los 
ahos, la de los meses y la de los dias. 

Las funciones LEFTS, RIGHTS y 
MID$, te permiten separar con facili- 
dad la parte de los dias, la de los me- 
ses y la de los afios de una determina- 
da fecha. Si ahora utilizas las funcio- 
nes VAL, obtendras a partir de la ca- 
dena de caracteres resultante un nu- 
mero con el que puedes hacer sumas, 
restas multiplicaciones y divisiones. 

LONGITUD DE LAS CADENAS 

A veces interesa conocer la longitud 
de una cadena. Si por ejemplo solo 
dispones de una Iimitada capacidad de 
memoria para cada elemcnto de infor- 
macion introducido desde el teclado, 
o solo un espacio limitado de pantalla 
para presentar dicha informacion, 
puede ser de gran ayuda comprobar la 
longitud de la cadena antes de seguir 
con el programa. 

La funcion LEN(A$) te da como re- 
sult ado el numero de caracteres que 
contiene la cadena A$. Se trata de una 
funcion numerica y no de una cadena 



p r ogrcimac|0" 
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de caracteres. por lo que puedes ma- 
nipularla con arreglo a las leyes nor- 
males del algebra. Por ejemplo, si A$ 
- «Sr Juan Perez», LEN(A$) = 13. 
Pero supongamos que te piden que te- 
clees un nombre para un determinado 
ficbero cuyo formato tabulado para 
representacion en pantalla solo tiene 
sitio para 11 letras, por lo que puede 
ser que haya que enviar un mensaje 
para que se recorte la entrada, tal 
como el siguiente: 



para C-64 y Vic-20 



10 PRINT "ESCRIBE EL NOMBRE" 

20 INPUT A$ 

30 IF LENCA$)>11 THEN PRINT 
"LO SIENT0- SOLO ADMITO 
11 CARACTERES":GOTC 10 

El usuario podria asi recortar su en- 
trada y teclear unicamente «JUAN 
PEREZ». 

En otros casos podria resultar mas 
facil truncar automatieamente la en- 
trada. Esto se hace con una linea tal 
como la siguiente: 

IF LEN (A$)>15 THEN 
A($)=LEFT$(AS,15) 



CONVERSION DE CADENAS A 
NUMEROS 

Uno de los usos de las variables de 
cadenas de caracteres es conseguir que 
las entradas introducidas por el tecla- 
do sean correctas. Por ejemplo, si es- 
cribes un programa que contenga un 
par de line as como las siguientes: 

10C PRINT "ESCRIBE UN 

NUMERG" 
110 INPUT A 

el ordenador se quedara esperando 
que teclees algiin numero. Si por error 
tecleas algiin caracter no numerico, 
casi todos los ordenadores interrumpi- 
ran la representacion en pantalla y en- 
viaran un mensaje estandar de error. 
Dicho mensaje te informara de que 
hay algo que esta mal pero no te dira 
lo que es. 

Pero si en lugar de esto utilizas: 



110 INPUT A$ 

en cste caso el usuario puede teclear 
casi cualquier cosa y el ordenador lo 
aceptara. El siguiente paso es conver- 
tir la cadena de caracteres en un nu- 
mero. Para hacerlo, utiliza la funcion 
VAL(A$). 

La funcion VAL en los Commodo- 
re extrae la parte numerica de la ca- 
dena de caracteres. Asi, si A$ es un 
numero, entonces VAL(A$) sera un 
numero que puede ser utilizado en el 
resto del programa. Si por el contra- 
rio A$ no es un numero, VAL(A$) 
dara como resultado el valor 0. Pue- 
des escribir entonces una pequena su- 
brutina que explique en detalle lo que 
el usuario ha hecho mal y le brinde 
otra oportunidad sin tener que salir 
del programa y destruir la presenta- 
tion que haya en pantalla. 

Un pun to importante a tener en 
cuenta a proposito de la funcion VAL 
es que solo extrae niimeros del princi- 
pio de la cadena. En consecuencia, 
VAL(«25 DE JULIO) sera igual a 
25, mientras que VAL(JULIO 25) 
sera igual a cero. De modo que ten 
cuidado al utilizarla. 

La funcion VAL resulta muy util 
para ordenar los numeros de una ca- 
dena de caracteres de varias formas di- 
fe rentes. Si por alguna razon tienes los 



nombres y las puntuaciones de un gru- 
po de alumnos en forma de cadenas, 
tal como: A$ = «32 JORGE», B$ = 
«45 MIGUEL», C$ = «41 ELENA», 
etc y deseas calcular la media de la cla- 
se, puedes extraer valores individuales 
con ayuda de la funcion VAL. Asi 
VAL(A$) vale 32, VAL(B$) vale 45 y 
VAL(C$) vale 41. 

Tambien puedes usar VAL de for- 
ma parecida para ignorar las unidades 
que pueden ir acompafiando magnitu- 
des tales como pesos y longitudes. El 
siguiente programa te permitira apre- 
ciar la diferencia: 

para C-64 y Vic-20 

100 A$="32 KG" 

110 B$="110 KG" 

120 PRINT ,r A$+6$= M ;A$+B$ 

130 PRINT ,i VALCA$)+VAL(B$)^" 

;VAL(A£)+VAL(B$) 
140 END 

CONVERSION DE NUIVIEROS A 
CADENAS 

La funcion STR$ tiene un resultado 
casi opuesto al de VAL. Sirve para 
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ORDENA TUS CADENAS 

Cuando el ordenador extrae 
de manera casi magica las direc- 
ciones de centenares de entradas 
separadas y las presenta en la 
pantalla, es facil imaginar que la 
maquina es mas inteligente de lo 
que realmente es. Sucede casi 
como si el ordenador estuviera 
leyendo directamente las entra- 
das y a continuacion decidiendo 
lo que tiene que hacer. 

No te confundas. El ordena- 
dor se limita a extraer una parte 
de la cadena a medida que va re- 
cibiendo informacion. Si resulta 
que una parte de esas cadenas 
contiene un galimatias, pues eso 
es lo que te encontraras. 

Para asegurarte de que obtie- 
nes la misma informacion de 
cada cadena, tienes que garanti- 
zar que la informacion se alma- 
cena siempre en el mismo sitio. 
Los investigadores profesionales 
con frecuencia utilizan tarjetas 
de entrada con un formato nor- 
malizado, que constituyen una 
de las ayudas mas valiosas que 
te puedes procurar. Para ello no 
necesitas mas que una serie de 
espacios que contengan los ca- 
racteres, rotulados con arreglo 
al lugar donde debe empezar y 
acabar cada elemento de infor- 
macion. 



transformar una cadena en un nume- 
ro. La ventaja de esto es que las ca- 
denas de caracteres pueden ser mani- 
puladas de forma distinta a los nume- 
ros, por ejemplo con ayuda del trocea- 
do y la concatenation que ya hemos 
visto, por lo que STR$ tiene varias 
aplicaciones. 



MO 
OI_VX Ol 



'otvao 



SIEMPRE QUE 
NOS ESCRIBAS 




El siguiente programa sirve para 
convertir en binario un numero deci- 
mal. Aunque los ordenadores mane- 
jen toda su aritmetica interna en bina- 
rio, el lenguaje BASIC solo puede 
manejar mimeros decimales y, en al- 
gunos casos, hexadecimales. Por ello, 
cuando en un programa en BASIC se 
presenta un numero en binario, hay 
que manejarlo como una cadena de 
caracteres. 

^^ para C-64 y Vic-20 

10 PRINT "DECIMAL A BINARIO" 
20 PRINT "ESCRIBE UN ENTERO 

DECIMAL" 
30 INPUT D 
40 B$="" 

50 B$=STR$(D-INT(D/2)*2)+B$ 
60 D=INT(D/2) 
70 IF DO0 THEN GOTO 50 
80 PRINT "EL NUMERO BINARIO 

ES ";B$ 

Al introducir un numero decimal 
positivo, la Ifnea 40 hace la cadena B$ 
igual a la cadena nula, que despues va 
llenando progresivamente con digitos 
a medida que progresa el calculo en el 
bucle de las line as 50 a 80. 

La lfnea 50 es la que realmente se 
encarga de construir el numero bina- 
rio. Para ello resta dos veces la parte 
entera de la mitad del numero decimal 
del propio numero decimal. Esta es 
una forma sencilla de comprobar si un 
numero es par o impar. Si es impar, 
el resultado es 1, mientras que siendo 
par el resultado es 0. Naturalmente, 
estos son los digitos binarios buscados. 

PROCESAM1ENTO DE TEXTOS 

Las funciones de manejo dc cade- 
nas de caracteres se utilizan amplia- 
mente, en especial en proceso de tex- 
tos. Una necesidad que se piantea con 
frecuencia es la sustitucion de una pa- 
labra por otra en toda la extension de 
un documento (posiblemente debido a 
que has descubierto una falta de orto- 
grafia). Naturalmente, si la nueva pa- 
labra tiene una longitud diferente de 
la original, tienes que desplazar el res- 
to del texto para dejarle sitio. El si- 
guiente programa te muestra la mane- 
ra de hacerlo: 



para C-64 y Vic-20 

10 INPUT "ESCRIBE EL TEXTO" 

;T$ 
20 INPUT "PALABRA A REEMPLA 

ZAR";P$ 
30 INPUT "PALABRA SUSTITUTA' 

;NP$ 
35 P=0 
40 P=P+1 

50 A$=MID$CT$,P,LEN(P$)) 
60 IF A$<>P$ THEN 90 
70 T$=LEFT$(T$,P-1)+NP$+ 

RIGHT$CT$,LENCT$)-P-LEN 

CP$)+1) 
80 P=P+LEN(NP$)-1 
90 IF P<LENCT$) THEN 

GOTO 40 
100 PRINT T$ 
110 GOTO 20 

Empieza introduciendo una frase 
mas bien sencilla y a continuacion en- 
saya el efecto de sustituir algunas de 
sus letras o palabras. En las palabras 
cortas tales como «a» o «un» convie- 
ne teciear ademas un espacio antes y 
despues para evitar que se apliquen 
tambien los cambios cada vez que se 
presentcn dichas palabras embebidas 
en otras mas largas, tales como «para» 
o «unidad». La palabra buscada ha de 
ir entre comillas: «un». 

EI programa funciona de la siguien- 
te manera: La line a 40 en via a P a em- 
pezar la fase de busqueda al principio 
del texto. Las lineas 50 y 60 detectan 
la primera aparicion de la palabra o 
grupo de letras que pretendes sustituir 
y a continuacion ia linea 70 realiza la 
sustitucion. Lo que hace es tomar el 
texto original, remplazar Ia palabra 
antigua por la nueva y anadir el texto 
restante. El proceso se repite hasta 
que se ha realizado la sustitucion en 
todos los sitios en que aparece la pa- 
labra que se quiere sustituir, impri- 
miendose a continuacion en la linea 
100. 

Como has visto, se trata de un 
ejemplo muy simple, los procesadores 
del mundo real son mucho mas com- 
plicados. Sin embargo puede servir 
para darte una idea de algunas aplica- 
ciones practicas de lo que se puede ha- 
cer con las cadenas de caracteres. 
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SOLUCIONES 
«INGENIOSAS» 



La mecanica no existe solo para los 
ingenieros. Es el estudio de las interac- 
ciones entre las fuerzas e interviene en 
todo tipo de actividades cotidianas, 
susceptibles de ser analizadas por tu 
ordenador. 

La construction de muchos de los 
mayores monumcntos del mundo, ta- 
les como las piramides de Egipto o el 
complejo megalitico de Stonehenge, 
resulta especiahnente sorprendente 
por el hecho de que fueron construf- 
dos mucho tiempo antes del desarro- 
llo de los disposftivos tecnologicos 
considerados como necesarios para di- 
chas tare as. 

Actualmente serfan muy pocos los 
constructores que se atrevieran a 
abordar este tipo de trabajos sin dis- 
poner de la maquinaria adecuada para 
cortar y transportar las enormes pie- 
dras o para elevar las grandes rnasas 
de material a grandes alturas sobre el 
suelo. Y sin embargo hasta !a mas so- 
fisticada de dichas maquinas esta ba- 
sada en unos printipios fundamentales 
que ya eran conocidos y utilizados por 
los ingenieros primitivos. Entre todos 



ellos destaca cspecialmente el princi- 
pio de la mecanica, que es la ciencia 
que se ocupa del estudio de las fuer- 
zas. 

Ya se trate de un sistema estaciona- 
rio (como un edificio) o en movimien- 
to (como los elementos de una maqui- 
na), siempre hay fuerzas que actuan 
sobre el. Se pueden valorar estas fuer- 
zas de un modo instintivo o a partir de 
la experiencia, igual que hacian los 
constructores primitivos, y lo que ha- 
cemos todos en las actividades de la 
vida diaria. Por ejemplo cuando vas a 
levantar con una mano una taza de 
cafe, automaticamente aplicas la fuer- 
za correcta para levantarla sin que el 
cafe saiga volando. Y si vas a colocar 
una estantena, tienes una idea bastan- 
te precisa del tipo de maderas que tie- 
nes que utilizar y dc como colocar los 
soportes para evitar que se comben 
por action del peso sobre la misma. 

La estimation de fuerzas de esta 
manera esta muy bien para las aplica- 
ciones corrientes, pero hay muchas 
ocasiones en que se requiere una ma- 
yor precision. En este tipo de analisis 
es donde intervienen los ordenadores. 




LA MAQUINA MAS SENCILLA 
VENTAJAS MECANICAS 



ALCANZANDO MAYORES ALTURAS 



AHORRO DE ESFUERZOS 
EL ARIETE HIDRAULICO 



Naturalmente, puedes utilizar esti- 
maciones basadas en la experiencia 
para programar simulaciones en orde- 
nador de sistemas en los que intervie- 
nen fuerzas. En su nivel mas sencillo, 
esto es lo que se hace en el tipo de si- 
mulation empleado en muchos pro- 
gramas de juegos. Asf puedes estimar 
por ejemplo lo lejos que caera una es- 
pada cuando es arrancada de la mano 
de un enemigo, o con que fuerza se es- 
cuchara el ruido producido por el cho- 
que de dos objetos. 

Pero cuando utilices como herra- 
mienta el ordenador, es seguro que 
necesitaras mayor precision. Por 
ejemplo, tanto si eres un ingeniero 
que esta proyectando un puente como 
un mecanico aficionado intentando 
construir un artilugio para levantar el 
motor de tu coche, es importante sa- 
ber cuando se alcanzara el punto de 
ruptura de la cstructura. Si utilizas tu 
ordenador para analizar las fuerzas 
que actuan sobre una estructura en 
condicioncs de carga variable, necesi- 
tas una precision absoluta, asi como 
un buen entendimiento de como cal- 
cular las fuerzas. 



LA MAS SENCILLA DE LAS 
MAQUINAS 



A medida que se construyen estruc- 
turas mas pesadas, el problema de mo- 
verlas se va convirtiendo cada vez en 
un reto mayor. Durante la decada de 
los sesenta, el poderoso cohete Satur- 
no V que sirvio para enviar hombres a 
la Luna, fue transportado sobre la ma- 
yor plataforma rodante del mundo. 
En la actualidad, las plataformas pe- 
troliferas del Mar del Norte, apoyadas 
sobre colchones neumaticos tipo ho- 
vercraft o plasticos lubricantes, son re- 
molcadas hasta la playa y botadas al 
mar. Estas tecnicas y otras parecidas 
dependen para su realization de algu- 

INPUT 1 1 
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na clase dc maquinas, que les propor- 
cionan, por ejemplo, traction, prcsion 

elevation. A su vez estas maquinas 
son una superposition dc unos cuan- 
tos dispositivos basicos que han sido 
utilizados durante siglos. 

La mas primitiva de estas maquinas 
es la palanca. En su forma mas senci- 
11a, la palanca es una barra rigida, uno 
de cuyos extremos se coloca debajo de 
un objeto mientras que se actiia sobre 
el otro extremo para mover el objeto. 
Con este simple artificio, una persona 
puede mover una carga varias veces 
superior a su propio peso. Dc hecho, 
se atribuye a Arqufmedes, el gran 
cientifico de la Antigiiedad, la frase 
«Dadme un punto de apoyo y movere 
el mundo» en una clara referenda a la 
ley de la palanca. Segun afirmaba, se- 
ria capaz de mover la Tierra siempre 
que tuviera una palanca suficiente- 
mente larga y un buen fulcro. El.ful- 
cro o punto de apoyo es el punto al- 
rededor del cual pivota la palanca, por 
lo que en e! ejemplo anterior es sim- 
plemente un lugar sobre el suelo en el 
que se apoya la barra rigida. 

La disposition mas normal de la pa- 
lanca tiene el fulcro no en uno de los 
extremos de la barra rigida, sino en al- 
gun punto entre ambos extremos. Te- 
clea el primer programa que figura a 
continuation y tendras una demostra- 
cion de esto. 

para Cornmodoro-64 

1 REM**ES NECESAR10 EL 
SIMON'S BASIC 



10 HIRES 0,3 

20 COLOUR 6,3: FOR Z=0 TO 4 
STEP .5:LIN£ 0,180+Z*Z, 
319,180+Z*Z,1 :NEXT Z 
40 CSET(O): INPUT "CSHIFT+CLR 
/KOMEjDISTANCIA DEL 
FULCRO DESDE LA IZQUIERDA 
(1-8)";D 
50 IF D<1 OR D>8 THEN 40 
60 W= ( 1 0- D ) / D 

70 PRINT "CCRSR abajoDPESO 
REQUERIDO PARA EQUILIBRAR 
100 KG=",W*100;"KG n 
80 FOR G=1 TO 2000: NEXT G: 

CSET(2) 
100 LINE 61 + 20*0,150,51+20*0' 
,179,1 :LINE 61+20*D,l5O, 
71+2C*D, 179,1 
105 PAINT 61+20*D, 160,1 
120 A=10-D:A=ATN(A*A-1) 
130 FOR AN=A. TO 2*ATN(1)STEP 

(2*ATN(1)-A)/10 
140 C=1:G0SUE 1D0O:C=1 :G0SUB 

1500 
150 FOR 6=1 TO 500; NEXT G 
160 C=0:G0SUB 100C:G0SUB 

1500 
170 NEXT AN 
ISO AN=2*ATN(1):C=1 :G0SUB 

1000:60SUB 1500 
190 GET AS: IF A$="" THEN 190 
200 RUN 
1000 X1=160-1C0*SIN(AN):Y1= 

149~2G*D*C0S(AN> 
1010 LINE X1,Y1,167+100*SIN 
(AN) ,149+1 200- 2C*D)*C0S 
CAN) ,C 



1020 X1=160+100*SIN(AN):Y1= 

141+(200-20*D)*C0S(AN) 
1025 BLOCK X1,Y1,166+100*SIN 

<AN),149+(2C0-2C*D)*C0S 

CAN),C 
1030 RETURN 
1500 X1=165-100*SIN(AN):Y1= 

U8-20*D*C0S(AN) 
1510 BLOCK 165-1 G0*SIN(AN)- 

SQR(W)*7,148-20*D*C0S 

(an;-sqr(w)*7,xi,yi,c 

1530 RETURN 



Al ejecutar el programa aparecera 
un mensaje en la pantalla (linea 40) 
para que especifiques la distancia (D) 
desde un punto de apoyo hasta el ex- 
tremo izquierdo de una barra dc 10 
metros. La linea 60 calcula entonces el 
peso (W) requerido en dicho extremo 
para equilibrar una carga de 100 Kg 
colocada en el otro extremo; la linea 
70 presenta en la pantalla el valor de 
W. Las lineas 100 a 110 se ocupan de 
dibujar el fulcro. La linea 120 define 
las variables correspondientes al angu- 
lo de la palanca y las lineas 130 a 170 
animan el equilibrio de la barra me- 
diante la llamada a una rutina (lineas 
1000 a 1030) para dibujar la barra y 
otra (lineas 1500 a 1530) para dibujar 
los pesos. La linea 180 dibuja la posi- 
tion final de la barra y los pesos. 

Prueba a introducir djferentes valo- 
res en D cad a vez que ejecutes el pro- 
grama, y observa como se requiere un 
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mayor esfuerzo (es decir un valor ma- 
yor de W) a medida que el micro va 
estando mas ale j ado de la carga de 100 
Kg. Por el contrario, a medida que el 
fulcro se va coloeando mas cerca de la 
carga, la palanca tiene un efecto mu- 
cho mayor, por lo que hace falta mu- 
ch o menor esfuerzo. 



VENTAJA MECANICA 

Existe una formula matematica muy 
sencilla para calcular las longitudes y 
los pesos de un montaje de estc tipo, 
la cual da muy buenos resultados al 
considerar el efecto de carga sobre 
cualquier tipo de barra o viga, en el 
supuesto de que conozcas la posicion 
del punto sobre el que actua la carga. 
Dicha formula establece que el esfuer- 
zo o potencia multiplicado por la dis- 
tancia desde el punto donde se aplica 
hasta el fulcro, es igual a la carga o re- 
sistencia multiplicada por su distancia 
al fulcro. Escribiendo esto con varia- 
bles podemos poner: 

E x DE = C x DC 

En el programa anterior se utilize 
W en lugar de E; la longitud total de 
la barra es 10 , por lo que DC es igual 
a 10 - DE. Si el valor de C es igual 

a 1 . la formula se convierte en 

W = (10 - DE)/DE 



que es la forma en que se utiliza en 
la lmea 60 del programa anterior. Se 
te pide que especifiques DE (D en el 
programa), para poder calcular el es- 
fuerzo o potencia a aplicar. Sea cual 
sea la forma en que utilices la formu- 
la, siempre podras calcular la variable 
que falte si conoces las demas. 

Este hecbo tan simple se utiliza con 
gran provecho en las balanzas ordina- 
rias. Como sabes, se trata de una viga 
de metal que apoya y pivota alrededor 
de un punto de su centra. Esto signi- 
fica que DE = DC, ecuacidn que se 
puede simplificar para dar E = C. 
Ahora, para pesar un objeto cualquie- 
ra, no tienes mas que colocarlo en uno 
de los platillos que cuelgan de los bra- 
zos y poner pesos conocidos en el otro 
platillo hasta que la balanza quede 
equilibrada. Esto esta muy bien cuan- 
do se trata de pesar pequenas cantida- 
des, como puede ocurrir en una frute- 
ria, pero <<,que sucede cuando hay que 
pesar un vehiculo comercial tal como 
un camion cargado de mineral o de 
carbon? De hecho se aplica el mismo 
principio, pero en este caso en vez de 
situar el punto de apoyo en el centro 
se coloca muy cerca de la carga, por 
lo que se puede seguir equilibrando la 
balanza con pesos pequenos. 

Cuando ya hayas jugado bastantc 
con este programa, y hayas compro- 
bado de que forma el alargamiento de 
la palanca disminuye el esfuerzo nece- 
sario, estaras en condiciones de descu- 




brir palancas en casi cualquier maqui- 
na. Esta disminucion del esfuerzo se 
suclc llamar ventaja mecanica y esta 
dada por el cociente entre el esfuerzo 
y la carga. Si transfer mas adecuada- 
mente la formula anterior, encontra- 
ras que la ventaja mecanica es igual a 
la distancia que se desplaza el esfuer- 
zo dividida por la distancia que se des- 
plaza la carga. De modo que la proxi- 
ma vez que tires de una palanca — que 
puede ser el picaporte de una puerta 

un freno de bicicleta — observa 
como el desplazamiento del extremo 
donde se aplica el esfuerzo es bastan- 
te mayor que en el otro extremo. 

ALCANZANDO MA YORES 
ALTURAS 

Para empujar y tirar de cosas, lo 
mejor es utilizar palancas, pero cuan- 
do lo que hace falta es elevar una de- 
tcrminada carga a una gran altura, la 
palanca ha de ser modificada. Este es 
el objeto de los sistemas de poleas, 
que tambien te permiten obtener ven- 
taja mecanica. Para ver demostrado 
esto, teclea y ejecuta el siguiente pro- 
grama: 

para Commodore-64 

1 REM**GSIGNIFICA ESPACIO 
20 A$='TSHlFT+NjrCTRL+9DCj 

CCTRL+ODCSHIFT+MDCCRSR 
abajo][3*CRSR izq.3 
rCTRL+9J[CRSR dcha.H 
*CCRSR dcha.JCCTRL+D] 
CCRSR abajo][3*CRSR izq.D 
CSH1FT+H3CCTRL+91C] 
[CTRL+OHSHIFT+Nir 

30 FOR Z-1 TO 2C:DS=D$+ 
"CCRSR abajol*':NEKT Z 

40 B$=A$+ H C2*CRSR arriba] 
[3*CRSR dcha.] n +A$+'T2* 
CRSR arribalC5*CRSR 
dcha-T'+AS 

50 C$="CCTRH-5J[CTRL+9]Gn 
CC1RL+0KCRSR dchaj 

LCTRL+9inr30paaci 

CCTRL+01CCRSR dcha.DLDLD 
[lElGDLULCTRL+GD 
TCRSR dcha,3CCTRU91DD 

[CTRL+C3 ,: 
60 POKE 53280,7: POKE 53281,7 

INPUT 13 




: GO SUB 1000 
90 S^GrFOR Z=18 TO 6 STEP-. 5 

:PRINT r TCLR/H0PiE3[CTRL+73 1005 
n LEFT$(D$,Z)TAB(19)B$: 
PRINT n C2*CRSR arribali "SPC 
(18)C$ 
100 PRIRT TAB(18)"CCTRL+3j 
CSH1FT+JjC3*CRSR dcha.j 
[SHIFT+KlD[:SHIFT+-][3 
I7SH1FT+JjC3*CRSR dcha.D 
CSHIFT+K1C3CSHIFT+-JH 1006 

CSH1FT+J3C3*CRSR dcha.3 
L3HIFT+K3" 
110 PRINT TAB(18)' ! aL][]t::Lj 
DCCOW.+ZDLSHIFT+c: 
CCTRL+13CC1RL+9JC3 
CSH1FT+U3C3CSHIFT+Ij[] 
C CTRL+03 C CTRL+33 LSHI FT+Cj 
CCOMM.+XJ" 
120 PRINT TAB(24)"C][] 1007 

CCTRL413CCTRL+93C3 

CSHIFT++3G[SHIFT++][3 
CCTRL+03C3C3" 
130 PRINT TAB(24)'T]ri[jC][3 1008 
[][][J[j":FOR D=1 TO 200 
:NEXT D 
140 POKE 1278+40*S,93:S=S+3: 

IF S>15 THEN S=0 1010 

150 POKE 1278+40*S,220:NEXT 

Z:END 
1000 PRINT"LSHIFT+CLR/HOMEJ 
CCTRL+13";:F0R Z=1 TO 
40:FRINT "ECTRL+^n 
CCTRL+03";:NEXT 1011 

1003 FOR 2=1 TO 3:PRINT SPC 

(20) ,! CCTRL+53rShIFT+-] 1020 
C7*CRSR dcha.3HSHIFT+-3 
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L9*CRSR dcha.][SHlFT+-] 

M :NEXT 2 

PRINT" CCLR/H0HE3C3*CRSR 

aba j oj "SPC C 1 4 ) *TSH I FT+U.1 
C3*CRSR dcha.3LSHIFT+lJ 
C3*CRSR dcha,3CSHIFT+U3 
C3*CRSR dcba.3CSF:IFT+lJ 
L3*CRSR dcha.3 CSHIFT+UD 
C3*CRSR dcha.JCSHIFT+13 
C3*CRSR dcha.3CSHIFT-i-3" 
FOR Z=1 TO 16:PRINT 
SPC(14)"CShIFT+-3 
C3*CRSR dcha.3CSHIFT+-3 
C3*CRSR dcha.3 CSH1FT+-3 
C3*CRSR dcha.3CSHIFT+-3 
C3*CRSR dcha.XSHIFT+-3 
C3*CRSR dcba.3CSHIFT+-3 
C3*CRSR dcha.3 CSM I FT+-3" 
:NEXT Z 

PRINT SPC(l4)"[SHIFT+-3 
CCRSR abajoKCRSR izq.3 
CSHIFT+-3 CCRSR abajo] 
CCRSR 1zq.3CSHlFT+-3" 
PRINT n C2*CRSR arribaj" 
TABdO) "CCRSR abajoa 
CCTRL+93CCTRL+13C3 
CCTRL+OHCOMNi+GH" 
PRINT"CCLR/K0FiE3 CCTRL+73 
C3*CRSR abajo3"7AB(15)A$ 
"CCLR/H0ME3C3*CRSR 
abajol M TABC23)A$ ,r 
CCLR/H0ME3C3*CRSR abajo3 
"TAB (31) AS 
PRINT'TCLR/HOMED 
C4*CRSR abajoJ"SPCC14)C$ 
PRlNT u CCbR/H0ME3CCTRb+63 
CCRSR abajo3ESFUERZO 



REQUERID0=":PR1NT"166^ 
KILOGRAMCS PARA": PRINT 
"LEVANTAR 1 TONELADA" 
1030 RETURN 

El programa te envia un mensaje 
para que especifiques el numero de 
poleas que quieres que intervenga er 
la demostracibn (linea 20). Para em- 
pezar, teclea un 2 y aparecera en It 
pantalla (linea 50) el esfuerzo necesa- 
rio para elevar una carga de 1000 Kj 
(una tonelada). Seguidamente el pro- 
grama realiza una animation de la car- 
ga cuando esta siendo elevada. La ru- 
tina que se extiende entre las lineas 
1000 y 1210 (a la cual se llama desde 
la linea 60) sirve para dibujar el siste- 
ma de cuerdas, pole a fija y apoyos, 
mientras que las lineas 90 a 150 se ocu- 
pan de la polea movil, la carga y la 
cuerda que se mueve. 

Ejecuta nuevamente el programa 
pero introduciendo ahora 4 y despues 
6 como respuesta al mensaje inicial y 
compara los valores del esfuerzo y de 
la distancia resultantes para el extre- 
me) libre de la cuerda. Como el esfuer- 
zo es iguaj a la carga dividida por el 
numero de poleas, el esfuerzo resul- 
tante sera igual a 1/2, 1/4 o 1/6 de los 
1000 Kg para los casos de 2, 4 o 6 po- 
leas. En consecuencia, cuanto mayor 
sea el numero de poleas empleadas, 
menor sera el esfuerzo requerido para 
levantar la misma carga. Al igual que 
en el caso de la palanca, la ventaja me- 
canica esta dada por la relation car- 



ga/esfuerzo. Para el caso de dos po- 
leas esta relacion es 1000 dividido por 
500, lo que supone una ventaja igual 
a 2. Analogamente, la ventaja meca- 
nica es 4 para el caso de cuatro poleas 
y 6 cuando se utilizan seis poleas. 



AHORRANDO ESFUERZOS 

lgual que en el caso de la palanca, 
sigue valiendo en este caso la relacion 
entre la distancia que se desplaza la 
carga y la que se desplaza el esfuerzo. 
Aunque en el caso de dos poleas, por 
ejemplo. la animacion revela que el 
extremo donde se aplica el esfuerzo se 
desplaza el doble de la distancia reco- 
rrida por la carga. esto no resulta muy 
facil de verificar. Si consideras que la 
cuerda del extremo izquierdo de la po- 
lea fija se desplaza hacia abajo una 
unidad de longitud. entonces la cuer- 
da del extremo derecho se desplaza 
dos unidades hacia arriba. La diferen- 
cia con respecto al caso de una iinica 
polea fija es que la cuerda del lado de- 
recho esta fija, por lo que se produci- 
ra un desplazamiento de una unidad 
en la parte izqujerda cad a vcz que el 
ccntro de la polea se desplace media 
unidad hacia arriba. Con un razona- 
miento analogo se puede demostrar 
quc la carga se mueve la cuarta parte 
que el extremo donde se aplica el es- 
fuerzo, en el caso de un sistema de 
cuatro poleas y como la sexta parte en 
el caso de seis poleas. 



Observa que todo cl analisis esta 
basado en el hecho de que las poleas 
son del mismo tamafio. Ademas, aun- 
que el montaje mostrado en la panta- 
11a funcione bien, resulta incomodo. 
En los montajes practices, las poleas 
deberfan ir montadas sobre dos ejes. 
Por ejemplo, un sistema de seis poleas 
lleva tres roldan'as o ruedas ranuradas 
sobre un eje con un bastidor de sopor- 
tc, el cual se une a un pescante o es- 
tmctura rigida elevada. A traves de un 
sistema analogo de roldanas se hace 
pasar una cuerda fijada al fondo del 
bastidor, mientras que la carga se an- 
cla al fondo de su bastidor. Esta es la 
disposition conventional utilizada en 
la mayoria de los aparejos. 



EL ARIETE HIDRAUL1CO 

Una aplicacion no menos importan- 
te de la ventaja mecanica es la del 
ariete o gato hidraulico. Se trata del 
dispositivo utilizado normalmente 
para mover determinados clcmentos 
en todo tipo de maquinarias, desde las 
puertas cornpactadoras de basuras y 
los volquetes de los camiones, hasta el 
tren de aterrizaje de un avion o el sis- 
tema dc frcnos de un coche. El siste- 
ma de frenado de un coche ilustra muy 
bien como un pequeno esfuerzo, pero 
un largo recorrido (en el pedal) pue- 
de ser amplificado hasta una intensi- 
dad suficiente como para llegar a de- 
tener las ruedas, incluso a alta veloci- 








dad. Tcclca y cjecuta el siguientc pro- 
grama para ver la demostracion de 
este principio: 



1 REM**ES NECESARIO 
SIMON'S BASIC 

10 HIRES 0,1 
MULTI 0,5,6 
COLOUR 2,7 
DIM PC4),R(31) 



EL 



20 
30 
40 
50 
80 
90 



G0SUB 300 



GET A$:IF A$=""THEN 80 
CSET (0):INPUT 'TSHIFT+ 
CLR/HOMEKUAL ES EL 
DESPLAZAMIENTO DEL 
EMBOLO C1-90) M ;TR 
100 IF TR<1 OR TR>90 THEN 90 
110 CSETr(2):MULTIr 0,5,6: 

FOR K=1 TO TR 
115 LIME 16,40+K,20,40+K / 
120 BLOCK 16,41+K,20,48+K,2 
125 LINE 91,53-K/7,111,53-K 

/7,3 
130 BLOCK 91,23^K/7,111,48-K 



/7,2 
140 NEXT K 

150 GET A$ : IF A$="" THEN 150 
160 CSETCO) :PRINT "CSH1FT+ 

CLR/HOMEDOTRA VEZ (S/N)? ,! 
170 GET A$:IF A$<> M S ,: AMD A$ 

<>"N" THEN 170 
180 IF A$="S ,! THEN RUN 
190 PRINT "CSHIFT+CLR/HOrlEJ"" 

:END 
300 LINE 15,40,15,200,1 
305 LINE 112,40,112,200,1 
310 BLOCK 21,40,90,180,1 
33C TEXT 50,170, M >",0,1,8 
340 BLOCK 16,41,20,48,2 
350 BLOCK 91,23,111,48,2 
355 PAINT 80,190,3:LINE 55, 

180,55,200,0 
360 FOR K=0 TO 9 
370 LINE 13,49+K*10,15,49+K 

*10,1 
380 NEXT K 

390 TEXT 5,46, "0", 1,1,1 
395 TEXT 0,140,"90 M ,1,1,8 
400 FOR K=C TO 9 STEP 3 



410 LINE 113,49-K,115,49-K,1 
420 NEXT K 

430 TEXT 116 / 48,"0",1 / 1 / 8 
435 TEXT 116,35, "9", 1,1, 8 
440 RETURN 

Al ejecutar este programa, en la li- 
nea 50 se produce un salto a una su- 
brutina que dibuja el ariete. A conti- 
nuation el programa te pide que espe- 
cifiques el recorrido del piston, que en 
un sistema de frenado seria equivalen- 
te al movimiento del pedal. Se produ- 
ce entonces una animation que descri- 
be el movimiento del liquido en el 
ariete. 

El desplazamiento es una medida 
del esfuerzo aplicado al piston, pero la 
ventaja mecanica esta determinada 
por los diametros de los pistones mo- 
triz y de carga. Si los dos pistones tie- 
nen el mismo diametro, no hay venta- 
ja mecanica, pero a medida que se re- 
duce el diametro del piston motriz au- 
menta esta, de forma que es mas facil 
elevar la carga del lado derecho. 



Para que su 
COMMODORE trabaje 



CONTABILIDAD-64 



Lidcr en ventas, por su sencillez, 
rapidez, eficacia y precio, § 

Tiene capacidad para 600 cuentas fj 
y un numero ilimitado dc apuntes 
por cuanto el programa permite 
generar nucvos discos en los que 
continuar el ejercicio contabl 



Contabilidad-64 es un producto! 
de software autosuficiente 



PARA QUE SLJ LIQUIDACION 
.DE IV. A. NO LE SORPRENDA, 




cosa/de 
software 



I.V.A. - 64 



ESCRITOR ( PROCKSADOR UE TEX TO ) 

Programa en cartucho con posibilidad B 

de grabacion de documentos en casset 

te o diskette. 

Caracteres castellanos y catalanes tan 

to en pantalla como en impresora. Po- PROCESADOR 

sibilidaddeutilizartodoelsetdecarac- DE TEXTO 

teres de la impresora. Margenes, nu 

meracion de paginas, encabezamien 

tos. pies de pagina, etc 



que permite tcneren todo momento 
acceso a los ficheros de manera que 
puedan modifiearse los datos contenidos 
en eilos, aiin cuando cstos 
ya hayan sido validados 

esta posibilidad da r tt^T^\V\ 

una total libertad al l^OvtA^ 
usuario en el manejo I Ver sion CF-N£R 1CA - P ara 
de la informacion. cuaMuier imP resora * 




- Lis tad o de facturas recibidas 

- Listado de facturas emitidas x^, 

- Informe contable (I.V.A. deudor y 
I.V.A; acreedor) 

- Diario 
-Trasvase a contabilidad. 



CONTABILIDAD 64 A - 23.000,- Pts. 

CONTABILIDAD 64 B - 25.000,- Pts. 

CONTABILIDAD 64 + l.V.A. - 31.000.- Pts. 

PROGRAMA i.V.A. 7.000,- Pts. 

CONTABILIDAD PROHiSlON AL VERSION CASSETTE - 7.900,- Pis. 



Los tres acentos y la dieresis se ob- 

tienen pulsando Fl, F2, F3 o F4 y a 

continuacion la vocal correspondiente 

como en una maquina de escribir con- 

vencional. 

Posibilidad de cartas personalizadas 

(mail merge). 

P.V.P. 14.900,- pts. 



D1GANOS QUE IMPRESORA USA. 

TENEMOS EL PROGRAMA QUENECESITA. 



VERSIONES PARA: 

- SEIKOSIIA SP 800 

- IBM Compatibles (STAR, SG 10 EPSON...) 

- MPS 80! y compatibles COMMODORE 



Casa de Software, s.a. 

TAQUIGRAFO SERRA, 7, 5.° B 

Tels. 321 96 36 - 321 97 58 

08029 BARCELONA 



Pide demostracion en: 
Division Qni-ne GALERIAS 
Division Inform at ica 



Deseo recibir informacion de los siguientes programas: 



Nombre: 

Direccidn: 

Poblacidn: 



/Vplicaaon e 



LA CAJA 

DE HERRAMIENTAS 



IINCORPORACION DE NUEVQS COMANDOS 
I RUTINA DE RENUMERACION 



NUMERACION AUTOMATICA DE LINEAS 



SUPRESION DE BLOQUES 



OTROS COMANDOS 



Haz que tu vida resulte un poco mas 
facil con este nuevo juego de herra- 
mientas de programacion. Esta utili- 
dad en codigo maquina ofrece muchas 
rutinas que te ayudaran a configurar 
tus programas. 

Aunque todos los ordenadores uti- 
lizan en principio el mismo lenguajc 
BASIC, te habras dado cuenta de las 
variantes que existen de urtos dialec- 
tos a otros. De hecho, es muy raro en- 
contrar un programa, por corto que 
sea, que corra en mas de un ordena- 
dor. A veces no hace falta modificar 
mas que la forma en que se utilizan los 
comandos, pero muchas veces te en- 
contraras que muchos comandos im- 
plementados en uno de los ordenado- 
res no existen en absoluto en el otro. 
Muchos de los comandos no disponi- 
bles son precisamente los que, sin ser 
absolutamente esenciales para la pro- 
gramacion, hacen que la vida resulte 
mas facil para el program ador, por in- 
cluir facilidades como la renumera- 
cion, la autonumeracion de lineas, o 
la conversion de hexadecimal a deci- 
mal, etc. 

El programa de caja de herramien- 
tas (toolkit) para el Commodore que 
vamos a ver a continuacion, incorpo- 
ra estos comandos y algunos otros, fa- 
cilitandote grandemente el uso y la 
programacion del ordenador. Hay 
otros ordenadores que no ncccsitan 
estas utilidades, porque disponen de 
ellas en su BASIC estandar. 

El juego de utilidades que aquf pre- 
sentamos incorpora un total de 43 
nuevos comandos que pueden utilizar- 
se de la misma forma que las palabras 
reservadas del BASIC. 

Teclea el programa y a continuacion 
ejecutalo para comprobar si hay erro- 
rcs. Si te has equivocado en alguna de 
las lineas de DATA, el programa te 
dira en que h'nea estan los errores. 

Cuando el programa es correcto, al- 



macena la version de BASIC por me- 
dio de: 

SAVE' f HERRAMIENTA" 

A continuacion teclea RUN y des- 
pues SYS 52480, para crear el codigo 
maquina; despues almaccna dicho co- 
digo maquina con uno de los nuevos 
comandos recien creados. 

SMSAVE 49152,53247, "HERRA 
MIENT/i CM",1,1 

Se trata de la version del codigo ma- 
quina que tendras que cargar cuando 
quieras atilizar el programa. Para car- 
garlo, teclea: 

LOAD "HERRAMIENTA'^I^I 

Ocupemonos ahora de los coman- 
dos. Debido a la forma en que funcio- 
na el programa, todos los nuevos co- 



mandos se componen de una palabra 
de BASIC ya existente mas un par de 
caracteres adicionales, el primero de 
los cuales siempre sera @. La sintaxis 
de cada comando va seguida de una 
explicacion asi como de un ejemplo en 
los casos en que sea necesario. 



LOS NUEVOS COMANDOS 



@PPOKE posicion, direccion. Por 
ejemplo @PPOKE 51, 16384 POKEa 




Aplicaciones 



(aJPOKER direccion de comienzo, 
numero do elementos (0 a 256), lista 
de elementos. Por ejemplo @POKER 
49152,4,12,51,34,15,21 POKEa los 



cinco datos en la memoria a partir de 
la direccion 49152. 

@POKES direccion inicial, direc- 
cion final, valor a POKEar (0 a 255), 




los bytes bajo y alto de 16384 en las 
posiciones de memoria 51 y 52. 

@PPEEK position. Por ejemplo 
)PPEEK 51 presenta el valor de 
PEEK(51) + PEEK(52)*256. 
18 INPUT 



Este comando llena toda una seccion 
de memoria con el valor deseado. 
Puedes borrar una seccion de memo- 
ria POKEando ceros, o tambien pue- 
des llenar parte de la pantalla con ca- 
racteres, POKEando en la memoria 
de pantalla el codigo del caracter que 
quieres que aparezca en pantalla. 



Aplieaciones 



@BNEW direccion. Desplaza el co- 
mienzo del BASIC a la direccion de- 
seada. 

@GETNEW resetea el comienzo 
del BASIC a su valor normal. Es equi- 
valente a un comando OLD. Puedes 
utilizar los dos ultimos comandos para 
almacenar varios programas en me- 
moria al mismo tiempo. Por ejemplo, 
puedes cargar un programa como de 
costumbre y a continuaeion desplazar 
el BASIC, por ejemplo con @BNEW 
16384, cargando despues otro progra- 
ma. @BNEW 2048:@GETNEW te 
hara volver al programa antiguo. 

@NNEW realiza un arranque frio, 
borrando todos los programas de la 
memoria. 

@GGOTO variable te permite ha- 
cer un GOTO a un mimero de linea 
variable. 

@LRESTORE numero de linea te 
permite restaurar un comando READ 
a una linea especifica. 

@MGOTO direccion inicial, direc- 
cion final, nuevo comienzo desplaza la 
zona de memoria situada entre las dh 
recciones inicial y final, Ilevandola ha- 
cia la nueva direccion de comienzo. 

@MREAD direccion inicial, direc- 
cion final imprime el contenido de la 
zona de memoria sumandole el total 
de todos los valores. Un resultado ti- 
pico podria ser 12, 32, 65, 22, #131. 
Se puede utilizar este comando para 
crear lineas DATA de codigo maqui- 
na con comprobaciones al final de 
cad a linea. Al final de la section hay 
un corto programa para demostrar 
esto. 

@MSAVE direccion inicial, direc- 
cion final, nombre de programa en co- 
digo maquina, numero de dispositivo, 
1 almacena una zona de memoria 
como programa en codigo maquina. 
Como ejemplo, puedes ver el coman- 
do para almacenar el programa del 
juego de utilidades. 

@MFRE te informa del espacio to- 
tal de memoria disponible para el BA- 
SIC. 

@COST byte bajo, byte alto. Por 
ejemplo ©COST 6,1 presenta el valor 
de 6 + 1*256. 

@POST numero convierte el nume- 
ro en sus bytes bajo y alto. 

@CCHR$ numero de caracteres (0 



a 255 j, , codigo ASCII a imprimir. Por 
ejemplo, @CCHR$ 6,65 imprime seis 
letras A. 

@D' numero decimal, lo convierte 
a hexadecimal. 

@H'$ numero hexadecimal de cua- 
tro digitos, lo convierte a decimal. 

@ONTO increment© de cuenta (0 
a 255) proporciona numeration auto- 
matica de lineas con el incremento de- 
seado. La linea de comienzo es la pri- 
mera que teclees. 

@ONTO RETURN anula el efecto 
del anterior comando @ONTO. An- 
tes de emplear este comando, pulsa 

SHIFT y RETURN . 

@RLIST, numero de linea de co- 
mienzo, incremento. Es es comando 
de renumeracion. Por ejemplo, 
@RLIST,10,5 renumera un programa 
empezando en la linea 10 y avanzan- 
do de 5 en 5. Fijate en la primer a 
coma que figura en el comando y cui- 
da que no se te olvide. 

@WAITGET variable, espera a 
que se produzca una pulsation de te- 
cla; el nombre de la variable carece de 
importancia. 

@WAIT' 711*numero de segundos 
introduce un tiempo de espera del nu- 
mero de segundos especificado (el 711 
es un factor de escala). @PRINT% 
tinta (0 a 15), X (0 a 39), Y (0 a 24), 
texto a imprimir. Este comando impri- 
me el texto deseado, en el color espe- 
cificado y en las coordenadas X, Y. 

@COR tinta (0 a 15), color de bor- 
de (0 a 15), color de papel (0 a 15) es- 
tablece unas determinadas conditio- 
ner de color. 

@CLR' numero (0 a 39) borra de la 
pantalla la linea especificada. 

@SCLR borra toda la pantalla. 

@NEW resetea la pantalla. 

@UP desplaza toda la pantalla una 
hnea hacia arriba. 

@SYS1 deja la pantalla inactiva. 

@SYS0 pone la pantalla activa. 

@ASC1 hace que todas las letras 
sean minusculas. 

@ASC0 hace que todas las letras 
sean mayusculas. 

@ONl inhibe la tecla SHIFT. 

@ON0 activa la tecla SHIFT. 

@DEF1 inhibe la tecla 
RUN/STOP. 

@DEF0 activa la tecla RUN/STOP. 



@FN1 activa la autorrepeticion. 

@FN0 desactiva la autorrepeticion. 

@KCLR borra el buffer de teclado 
(es equivalente a POKE 198,0). 

@TOP envia el cursor a la esquina 
superior izquierda de la pantalla. 

@SIF borra todos los registros del 
chip de sonido. 

@SON voz, volumen, A/D,S/R, 
forma de onda, byte alto de la nota, 
byte bajo de la nota. Puedes utilizar 
este comando para definir los parame- 
tros de una nota. 



CREACION DE LINEAS DATA 



Tal como hemos mencionado al ha- 
blar del comando @MREAD, leyen- 
do una zona de memoria, puedes crear 
un programa BASIC que consista en 
sentencias DATA de codigo maquina. 
Este es el comando que se utilizo para 
crear el Iistado del propio paquete de 
utilidades. Suponiendo que has utili- 
zado un ensamblador para crear un 
determinado codigo maquina que em- 
piece en la position 49152, el metodo 
es el siguiente. En primer lugar, teclea 
las siguientes lineas y a continuaeion 
pulsa RETURN : 

A=0 : X=491 52 :ffiCCHR$79,32 : ? 
"L2+CRSR arriba] G" 

A*10"DATAG";:SMREAD X+A 
*15,14+X+A*15 

Al pulsar RETURN te aparecera 
en la pantalla la primera linea DATA. 
Coloca el cursor sobre dicha linea y 
pulsa RETURN para almacenarla. 

A continuaeion, desplaza el cursor 
a A = e incrementa el a 1, pulsa 
RETURN y sigue el proceso con la 
siguiente linea de datos. Sigue incre- 
mentando A hasta que esten introdu- 
cidos todos los datos. Esta rutina te 
presenta un programa con incremen- 
tos de linea de 10 en 10. Si cambias el 
numero 10 que precede a «DATA», 
obtendras otros incrementos distintos. 



SUPRESIOIM DE BLOOUES 

No existe un comando para supri- 
mir bloques, pero se puede obtener 

INPUT 19 



Aplicaciones 



este mismo efecto por medio dc otros 
dos comandos. Activa la funcion de 1 07 
autorrepeticion por medio de @FN1 y 
a continuacion teclea @ONTO con un 
valor adecuado de incremento de 11- 1 Qg 
nea, relacionado con el incremento 
entre lineas que descas suprimir; final- 
mente, teclea el numero de la prime- -j qo, 
ra Imea que ha de ser suprimida. Al 
mantener pulsado RETURN sc bo- 
rraran efectivamente todas las lineas -j <| q 
desde ese punto en adelante, dete- 
niendose unicamente cuando dejes de 
apretar la tecla RETURN . * « a 

100 DATA 32,158,183,142,134, 
2,32,253,174,32,158,183, 112 
138, 72 ,32, #1725 

101 DATA 253,174,32,158,183, 
104,168,24,32,240,255,32 113 
,253,174,32, #2114 

102 DATA 164,170,96,32,158, 
183,142,134,2,32,253,174 114 
,32, 158,183, #1913 

103 DATA 142,32,208,32,253, 
174,32,158,183,142,33, 115 
208,96,32,247, £197? 

104 DATA 183,32,253,174,32, 
235,183,142,19,3,169,0, 116 
133,2,32, #1592 

105 DATA 253,174,32,158,183, 
138,164,2,145,20,204,19, 117 
3,240,5, #1740 

106 DATA 230,2,76,74,192,96, 
32,138,173,32,247,183, 118 



165,20, 133, #1793 

DATA 251,165,21,133,252, 

32,253,174,32,138,173,32 

,247, 183, 32, #2118 

DATA 253,174,32,158,183, 

134,2,165,21,197,252,144 

,35,208,6, #1964 

DATA 165,20,197,251,144, 

27,165,2,160,0,145,251, 

165 ,251, 197, #2140 

DATA 20,208,6,165,252, 

197 ,21 ,240,9,230,251 ,208 

,234, 230, 252, #2523 

DATA 76,141,192,96,32, 

138,173,32,247,183,165, 

20,133,251, 165, #2044 

DATA 21,133,252,32,253, 

174,32,138,173,32,247, 

183, 165,20,133, #1988 

DATA 253,165,21,133,254, 

32,253,174,32,138,173,32 

,247, 183,165, #2255 

DATA 254,197,252,144,41, 

208,6,165,253,197,251, 

144 ,33, 160,0, #2305 

DATA 177,251,145,20,165, 

251,197,253,208,6,165, 

252, 197, 254, 240, #2781 

DATA 15,230,251,208,2,, 

230,252,230,20,208,228, 

230,21 ,76,223, #2424 

DATA 192,96,32,138,173, 

32,247,183,165,20,133, 

251, 165 ,21, 133, #1981 

DATA 252,32,253,174,32, 



138,173,32,247,183,160,0 
,165, 20,145, #2006 

119 DATA 251,165,21,200,145, 
251,96,32,158,183,32,255 
,233, 96,32, #2150 

120 DATA 138,173,32,247,183, 
160,0,177,20,170,200,177 
,20,32,205, #1934 

121 DATA 189,96,32,138,173, 
32,247,183,165,20,133, 
251, 165, 21, 133, #1978 

122 DATA 252,32,253,174,32, 
138,173,32,247,183,165, 
21 ,197,252,144, #2295 

123 DATA 61,208,6,165,20,197 
,251,144,53,169,0,133, 
253, 133,254, #2047 

124 DATA 24,160,0,177,251, 
170,101,253,133,253,165, 
254,105, 0,133, #2179 

125 DATA 254,169,0,32,205, 
189,169,44,32,210,255, 
165, 251, 197, 20, #2192 

126 DATA 208,6,165,252,197, 
21,240,9,230,251,208, 
214,230 ,252,76, #2559 

127 DATA 104,193,169,35,32, 
210,255,166,253,165,254, 
76,205, 189, 32, #2338 

128 DATA 138,173,32,247,183, 
162,0,232,208,253,198,20 
,169,255,197, #2467 

129 DATA 20,208,245,198,21, 
197,21,208,239,96,32,158 
,183, 160,0, #1986 



DIBECCIQN 



_K 



RIDACCION. 
GAMBIA ' 



TMMO 



*Q) 




— Paseo— 

dela 
CasteUana 

n*93 
planta,14 

88046 
—Madrid— 



20 INPUT 



Aplicaciones 



130 



131 



132 



133 



134 



135 



136 



137 



138 



139 



140 



141 



DATA 224,1,208,2,160,7, 

224,2,208,2,160,14,132, 142 

2,32, #1378 

DATA 253,174,32,158,183 

,142,24,212,32,253,174, 143 

32,158, 183,138, #2148 

DATA 164,2,153,5,212,32, 

253,174,32,158,183,138, 144 

164,2, 153, #1825 

DATA 6,212,32,253,174,32 

,158,183,138,164,2,153,4 145 

,212, 142, #1865 

DATA 19,3,32,253,174,32, 

158,183,138,164,2,153,1, 146 

212, 32, #1556 

DATA 253,174,32,158,183, 

138,164,2,153,0,212,206, 147 

19,3, 173, #1870 

DATA 19,3,164,2,153,4, 

212,96,162,0,138,157,0, 148 

212,232, #1554 

DATA 224,25,208,248,96, 

76,68,229,76,24,229,76, 149 

234,232, 169, #2214 

DATA 0,141,138,2,96,169, 

128,141,138,2,96,169,0, 150 

133, 198, #1551 

DATA 96,169,237,141,40,3 

,96,169,251,141,40,3,96, 151 
76, 102, #1660 

DATA 229,169,27,141,17, 
208,96,169,11,141,17,208 152 
,96, 169, 21, #1719 
DATA 141,24,208,96,169, 
23,141,24,208,96,169,9, 153 



76,210,255, #1849 

DATA 169,8,76,210,255,32 

,138,173,32,247,183,76, 154 

163, 168, 32, #1962 

DATA 138,173,32,247,183, 

169,0,168,145,20,24,165, 155 

20, 105,1, #1590 

DATA 133,43,165,21,105,0 

,133,44,76,154,227,169, 156 

62,32,210, #1574 

DATA 255,169,18,32,210, 

255,165,55,56,229,45,170 157 

,165, 56,229, #2109 

DATA 46,32,205,189,169, 

96,160,228,76,30,171,169 158 

,0,133, 198, #1902 

DATA. 165,198,201,1,208, 

250,76,146,171,169,8,160 159 

,1,145,43,#1942 

DATA 32,51,165,24,165,34 

,105,2,133,45,133,47,133 160 

,49, 165, #1283 

DATA 35,105,0,133,46,133 

,48,133,50,96,32,138,173 161 

,32,247,#1401 

DATA 183,165,20,133,63, 

165,21,133,64,32,19,166, 162 

56, 165 ,95, #1480 

DATA 233,1,133,65,165,96 

,233,0,133,66,96,162,0, 163 

181 ,43, #1607 

DATA 149,151,232,224,4, 

208,247,32,138,173,32, 164 

247,183,165,20, #2205 

DATA 133,43,165,21,133, 



44,32,253,174,32,138,173 

,32,247, 183, #1803 

DATA 165,20,133,45,165, 

21,133,46,32,86,225,162, 

0,181 ,251 ,#1665 

DATA 149,43,232,224,4, 

208,247,96,32,158,183, 

134,2,32, 253,#1997 

DATA 174,32,158,183,142, 

19,3,165,2,201,0,240,11, 

173, 19, #1522 

DATA 3,32,210,255,198,2, 

76,79,195,96,76,154,227, 

32,138, #1773 

DATA 173,32,247,183,170, 

169,72,32,210,255,169,39 

,32, 210,255, #2248 

DATA 169,36,32,210,255, 

138,32,139,195,138,32, 

144,195, 152,32, #1899 

DATA 139,195,152,32,144, 

195,96,24,106,106,106, 

106,41,15,24,#1481 

DATA 105,48,201,58,144, 

2,105,6,32,210,255,96, 

169,68,32, #1531 

DATA 210,255,169,39,32, 

210,255,32,186,195,133, 

34,32,186, 195, #2163 

DATA 170,165,34,32,205, 

189,76,228,167,32,203, 

195, 10, 10, 10, #1726 

DATA 10,133,35,32,203, 

195,101,35,133,35,96,32, 

115,0,201 ,#1356 



GANADORES DE LOS MEJORES DE INPUT COMMODORE 

En el sorteo correspondiente al numero 12 entre quienes escribisteis mandando vuestros votes a LOS 
MEJORES DE INPUT han resiiltado ganadores: 



NOMBRE 

Marcos Duran Serrano 
Manuel Revuelta Sierra 
Luis Cazorla Seisdedos 
Jaime Fernandez del Mazo 
Ruben igual Valero 
David Lumbreras Bo Id ova 
Rafael Perez Fraile 
Ramon Pedro Neco Garcia 
J. Manuel Carrillo Montero 
Carlos Morata Sole 



LOCALIDAD 

Barcelona 

Alcobendas (Madrid) 

H. de Llobregat (Barcelona) 

Madrid 

Barcelona 

Zaragoza 

Santander 

Alicante 

Cordoba 

Lerida 



JUEGO ELEGIDO 

World Cup Carnival 
Spindizzy 
Games Maker 
Sauccer attack II 
Green Beret 
Desert Fox 
RMS - Titanic 
Skyfox 
Hardball 
Rambo 



INPUT 21 



Aplka«' oneS 

• "■" null 1 Willi! B 



165 DATA 58,41,15,144,2,105, 
8,96,32,138,173,32,247, 184 
183, 169, #1443 

166 DATA 91,32,210,255,169,0 
,166,20,32,205,189,169, 185 
44,32,210, #1824 186 

167 DATA 255,169,0,166,21,32 
,205,189,169,93,32,210, 
255,96,32, #1924 187 

168 DATA 158,183,134,2,32, 
253,174,32,158,183,138, 
166,2,76,205, #1896 188 

169 DATA 189,5,0,0,32,121,0, 
208,6,169,0,141,14,196, 

96, #1177 1S9 

170 DATA 169,1,141,14,196, 
169,53,141,4,3,169,196, 

141 ,5,3, #1405 190 

171 DATA 32,138,173,32,247, 
183,165,20,141,12,196, 
165,21 ,141 ,13, #1679 191 

172 DATA 196,96,173,0,2,201, 
48,144,59,201,58,176,55, 
173, 14, #1596 192 

173 DATA 196,240,50,32,124, 193 
165,132,2,173,12,196,24, 

101 ,20,133, #1600 

174 DATA 99,173,13,196,101, 194 
21,133,98,162,144,56,32, 

73, 188 ,32, #1521 

175 DATA 223,189,133,254,132 195 
,244,160,0,177,254,240,6 
,153, 119,2, #2286 

176 DATA 200,208,246,132,198 196 
,164,2,96,76,124,165,0,0 
,0,0, #1611 

177 PRINT'TSHIFT+CLR/HOMED": 197 
X=49152:C=76:G0SUB 200 

178 DATA 169,11,141,8,3,169, 
205,141 ,9,3,96,32,115,0, 198 
201, #1303 

179 DATA 64,240,3,76,231,167 
,160,1,177,122,133,255, 199 
160, 2, 177, #1968 

180 DATA 122,133,2,162,0,189 200 
,128,206,197,255,208,9, 
232,189, 128,#2160 201 

181 DATA 206,197,2,240,16, 
202,201,0,240,6,232,232, 
224, 128,208, #2334 202 

182 DATA 230,162,11,108,0,3, 
134,2,32,115,0,32,115,0, 

32, #976 203 

183 DATA 115,0,166,2,189,255 
,205,133,252,189,0,206, 204 

22 INPUT 



133, 253, 169, #2267 

DATA 76,133,251,32,251,0 

,76,174,167,96,0,0,0,0,0 

,#1256 

X=52480:C=6:G0SUB 200 

DATA 0,192,33,192,64,192 

,96,192,169,192,1,193,36 

,193, 43, #1788 

DATA 193,61,193,163,193, 

189,193,36,194,48,194,51 

,194, 54,194, #2150 

DATA 57,194,63,194,69, 

194,74,194,80,194,86,194 

,89,194,95, #1971 

DATA 194,101,194,107,194 

,113,194,118,194,123,194 

,132,194, 159, 194,#2405 

DATA 189,194,202,194,233 

,194,8,195,65,195,97,195 

,100,195,159,#2415 

DATA 195,215,195,251,195 

,15,196,73,197,0,0,0,0,0 

,0,#1532 

X=52736:C=5:G0SUB 200 

DATA 153,37,67,176,151, 

82,151,83,77,137,80,151 

,156,39,80, #1620 

DATA 194,77,135,146,39, 

83,145,83,139,83,156,83 

,162,85 ,80, #1690 

DATA 165,48,165,49,75, 

156,150,48,150,49,164, 

80,158,48,158, #1663 

DATA 49,198,48,198,49, 

145,48,145,49,71,137,66, 

162,77, 184, #1626 

DATA 146,161,161,162,76, 

140,77,148,67,199,78,162 

,69,39,72,#1757 

DATA 39,185,84,190,84, 

145,164,82,155,0,0,0,0,0 

,0,#1128 

X=52864:C=5:G0SUB 200: 

GOTO 205 

FOR Z= TO C:T=0:FOR ZZ 

=0 TO 14:READ M:POKE X,M 

PRINT"CCRSR arribaDLINEA 

"PEEK(63)+PEEKC64)*256: 

T=T+M:X=X+1 

NEXT ZZ:READ X$:IF VAL( 

RIGHT$(X$,LEN(X$)-1))OT 

THEN 204 

NEXT Z:PRINT"0KC2*CRSR 
aba jo]": RETURN 
PRINT"ERROR EN LA LINEA M 



:END 

205 K=50505:T=0 

206 READ A: IF A=-1 THEN 209 

207 POKE K,A:K=K+1 

208 T=T+A:G0T0 206 

209 IF T052549 THEN PRINT 
"r_2*CRSR abajcOGERROR 
EN LA SOMA DE COMPROBA 
CION":END 

210 IF KO50928 THEN PRINT 
"L2*CRSR abajoDERROR EN 
LAS CIFRAS":END 

211 PRINTUSA SYS 52480 PAR£ 
EJECUTAR EL CODIGO 
MAQUINA" 

212 END 

213 DATA 32,253,174,32,107, 
169,165 

214 DATA 20,133,53,165,21, 
133,54 

215 DATA 32,253,174,32,107, 
169,165 

216 DATA 20,133,49,165,21, 
133,50 

217 DATA 32,142,166,32,201, 
198,32 

218 DATA 201,198,208,33,32, 
2,198 

219 DATA. 32,201,198,32,201, 
198,208 

220 DATA 3,76,212,198,32,201 
,198 

221 DATA 165,99,145,122,32, 
201,198 

222 DATA 165,98,145,122,32, 
13,198 

223 DATA 240,226,32,201,198, 
32,201 

224 DATA 198,32,201,198,201, 
34,208 

225 DATA 11,32,201,198,240, 
197,201 

226 DATA 34,208,247,240,238, 
170,240 

227 DATA 188,16,233,162,4, 
221,235 

228 DATA 198,240,5,202,208, 
248,240 

229 DATA 221,165,122,133,59, 
165,123 

230 DATA 133,60,32,115,0, 
176,211 

231 DATA 32,107,169,32,32, 
198,165 

232 DATA 60,133,123,165,59, 



Aplicaciones 



233 
234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

25? 

258 

259 

260 



133,122 

DATA 160,0,162,0,189,0,1 

DATA 240,17,72,32,115,0, 

144 

DAT£ 3,32,82,198,104, 

160,0 

DATA 145,122,232,208,234 

,32,115 

DATA 0,176,8,32,97,198, 

32 

DATA 121,0,144,248,201, 

44,2:40 

DATA 186,208,152,165,53, 

133,99 

DATA 165,54,133,98,76, 

142,166 

DATA 165,99,24,101,49, 

133,99 

DATA 165,98,101,50,133, 

98,32 

DATA 201,198,208,251,96, 

32,2 

DATA 198,32,201,198,32, 

201,198 

DATA 208,8,169,255,133, 

99,133 

DATA 98,48,14,32,201,198 

,197 

DATA 20,208,16,32,201, 

198,197 

DATA 21,208,12,162,144, 

56,32 

DATA 73,188,76,223,189, 

32,201 

DATA 198,32,13,198,240, 

209,32 

DATA 114,198,230,251,32 

,165,198 

DATA 230,45,208,2,230,46 

,96 

DATA 32,114,198,198,251, 

32,141 

DATA 198,165,45,208,2, 

198,46 

DATA 198,45,96,32,124, 

198,160 

DATA 0,132,17,132,251,96 

,165 

DAU 122,133,34,165,123, 
133,35 

DATA 165,45,153,36,165, 
46,133 

DATA 37,96,164,17,200, 
177,34 

DATA 164,251,200,145,34, 



32,190 

261 DATA 198,208,1,96,230, 
34,208 

262 DATA 236,230,35,208,232, 
164,17 

263 DATA 177,36,164,251,145, 
36,32 

264 DATA 190,198,208,1,96, 
165,36 

265 DATA 208,2,198,37,198,36 
,76 

266 DATA 165,198,165,34,197, 
36,208 

267 DATA 4,165,35,197,37,96, 
160 

268 DATA 0,230,122,208,2,230 
,123 

269 DATA 177,122,96,32,51, 
165,165 

270 DATA 34,166,35,24,105,2, 
133 

271 DATA 45,144,1,232,134, 
46,32 

272 DATA 89,166,76,116,164, 
0,137 

273 DATA 138,141,167,-1 



Si en Lugar de utilizar eL 
cargador BASIC prefieres 
recurrir a un ensamb-Lador, 
aqul tienes eL Listado. 

DIR. HEXADEC. NfiWONlCO 



,C000 


20 


9E 


B7 


JSR 


SB79E 


,C003 


8E 


86 


02 


STX 


$0286 


,C006 


20 


FD 


AE 


JSR 


SAEFD 


,C009 


20 


9E 


B7 


JSR 


SB79E 


,C00C 


8A 






TXA 




,C00D 


48 






PHA 




,C00E 


20 


FD 


AE 


JSR 


SAEFD 


,C011 


20 


9E 


B7 


JSR 


$E79E 


,€014 


68 






PLA 




,C&15 


AS 






TAY 




,C016 


18 






CLC 




,C017 


20 


FO 


FF 


JSR 


$FFFC 


,C01A 


2.0 


FD 


AE 


JSR 


SAEFD 


,C01D 


20 


A4 


AA 


JSR 


$AAA4 


,€020 


60 






RTS 




,C021 


20 


9E 


B7 


JSR 


SB79E 


,C024 


8E 


86 


02 


STX 


$0286 


,C027 


20 


FD 


AE 


JSR 


SAEFD 


,C02A 


20 


9E 


B7 


J vS R 


SE79E 


,C02D 


SE 


20 


DO 


STX 


SDC20 



,C030 20 FD 


AE JSR SAEFD 


,C033 20 9E 


B7 JSR $B79E 


,C036 8E 21 


DO STX SD021 


,C039 60 


RTS 


,C03A 20 F7 


B7 JSR SB7F7 


,C03D 20 FD 


AE JSR SAEFD 


,C040 20 EFJ 


B7 JSR SB7EB 


,C043 8E 13 


03 STX $0313 


,C046 A9 00 


LDA #$00 


,C048 85 02 


STA $02 


,C04A 20 FD 


AE JSR SAEFD 


,C04D 20 9E 


B7 JSR SB79E 


,C050 8A 


TXA 


,C051 A4 02 


LDY $02 


,C053 91 14 


STA ($14), Y 


,C055 CC 13 


03 CPY $0313 


,C058 FO 05 


BEG $C05F 


,C05A E6 02 


INC $02 


,C05C 4C 4A 


CO J MP SC04A 


,C05F 60 


RTS 


,C06G 20 8A 


AD JSR SAD8A 


,C063 20 F7 


B7 JSR SB7F7 


,C066 A5 14 


LDA $14 


,C068 85 FB 


STA $FB 


,C06A A5 15 


LDA $15 


,CD6C 85 FC 


STA $FC 


,C06E 20 FD 


AE JSR SAEFD 


,C071 20 SA 


AD JSR $AD8A 


,C074 20 F7 


B7 JSR $B7F7 


,C077 20 FD 


AE JSR SAEFD 


,C07A 20 9E 


B7 JSR SB79E 


,C07D 86 02 


STX $02 


,C07F A5 15 


LDA $15 


,C081 C5 FC 


C$? $FC 


,C083 90 23 


BCC $C0A8 


,C085 DO 06 


BNE $C08D 


,C087 A5 14 


LDA $14 


,C089 C5 FB 


CMP SFB 


,C08B 9C 1B 


BCC $C0A8 


,C08D A 5 02 


LDA $02 


,C08F AO 00 


LDY #$00 


,C091 91 FB 


STA ($FB;,Y 


,C093 A5 FB 


LDA SFB 


,C095 C5 14 


chp $14 


,C097 DO 06 


BNE $CQ9F 


, CO 9,9 A5 FC 


LDA SFC 


,C09B C5 15 


PHP $15 


,C09D FC 09 


BEG SC0A8 


,C09F E6 FB 


INC $FB 


,C0A1 DO EA 


BNE SCOSD 


,C0A3 E6 FC 


INC SFC 


,C0A5 4C ED 


CO JKP $C08D 


,COAS 60 


RTS 


,CGA9 20 8A 


AD JSR SAD8A 


,COAC 20 F7 


B7 JSR $B7F7 




INPUT 23 



Aplicaciones 



,C0AF A3 


14 




LDA 


$14 


,C0E7 


C5 


FD 




CMP 


SFD 


,C11E 


A5 


15 




LDA 


$15 


,C0B1 85 


FB 




STA 


$FB 


,C0E9 


DO 


06 




BNE 


SC0F1 


,C12G 


C8 






im 




,C0B3 A5 


15 




LDA 


$15 


,COEB 


A5 


FC 




LDA 


$FC 


,C121 


91 


FB 




STA 


C$FB) / Y 


,C0B5 85 


FC 




STA 


SFC 


,COED 


C5 


FE 




CMP 


$FE 


,C123 


60 






RTS 




,C0B7 20 


FD 


AE 


JSR 


SAEFD 


,COEF 


FO 


Of 




BEQ 


SC100 


,C124 


20 


9E 


B7 


JSR 


SB79E 


,C0BA 20 


8A 


AD 


JSP. 


SAD8A 


,C0F1 


E6 


FB 




INC 


SFB 


,C127 


20 


FF 


E9 


JSR 


SE9FF 


,C0BD 20 


F7 


B7 


JSR 


SB7F7 


,C0F3 


DO 


02 




BNE 


SC0F7 


,C12A 60 






RTS 




,C0C0 A5 


14 




LDA 


$14 


,C0F5 


E6 


FC 




INC 


$FC 


„C12B 


20 


8A 


AD 


JSR 


SADSA 


,C0C2 85 


FD 




ST£ 


SFD 


,C0F7 


E6 


14 




INC 


$14 


,C12E 


20 


F7 


B7 


JSR 


$B7F7 


,C0C4 A5 


15 




LDA 


$15 


,C0F9 


DO 


E4 




BNE 


SCODF 


,C131 


AO 


00 




LDY 


#$00 


,C0C6 85 


FE 




STA 


$FE 


,C0FB 


E6 


15 




INC 


$15 


,C133 


B-1 


14 




LDA 


($14), Y 


,C0C8 20 


FD 


AE 


JSR 


SAEFD 


,COFD 


4C 


DF 


CO 


J ivrp 


SCODF 


,C135 


AA 






TAX 




,C0CB 2C 


8A 


AD 


JSR 


SAD8A 


,C1Q0 


60 






RTS 




,C136 


C8 






INY 




,C0CE 20 


F7 


B7 


JSR 


$B7F7 


,C101 


20 


8A 


AD 


JSR 


SAD8A 


,C137 


B1 


14 




LDA 


($14), Y 


,C0D1 A5 


FE 




LDA 


$FE 


,C1G4 


20 


F7 


E7 


JSR 


SE7F7 


,C139 


20 


CD 


BD 


JSR 


SBDCD 


,C0D3 C5 


FC 




CMP 


SFC 


,C107 


A5 


14 




LDA 


$14 


,C13C 


60 






RTS 




,C0D5 90 


29 




BCC 


SC1C0 


,C109 


85 


FB 




STA 


SFB 


,C13D 


20 


8A 


AD 


JSR 


SAD8A 


,C0D7 DO 


06 




BNE 


SCODF 


,C10B 


A5 


15 




LDA 


$15 


,C140 


20 


F7 


B7 


JSR 


SB7F7 


,C0D9 A5 


FD 




LDA 


SFD 


,ClOD 


85 


FC 




STA 


SFC 


,C143 


A5 


14 




LDA 


$14 


,C0DB C5 


FB 




CMP 


$FB 


,C10F 


20 


FD 


AE 


JSR 


SAEFD 


,C145 


85 


FB 




STA 


$FB 


,0000 90 


21 




BCC 


$C100 


,C112 


20 


8A 


AD 


JSP 


SAD8A 


,C147 


A5 


15 




LDA 


$15 


,C0DF AO 


00 




LDY 


#$00 


,C115 


20 


F7 


B7 


JSR 


SB7F7 


,C149 


S5 


FC 




STA 


SFC 


,C0E1 E1 


FB 




LDA 


($FB),Y 


,C118 


AO 


00 




LDY 


g*oo 


/ CUB 


20 


FD 


AE 


JSR 


SAEFD 


,C0E3 91 


14 




STA 


($14), Y 


,C11A 


A5 


14 




LDA 


£14 


,C14E 


20 


8A 


AD 


JSR 


$AD8A 


,coes A5 


FB 




LDA 


SFB 


^ C 11 c 


91 


FB 




STA 


C$FB),¥ 


r Cl51 


20 


F7 


B7 


J SP 


$B7F7 





a. DUQUE DE SESTO, 50. 28009 MADRID 
METRO O'DONNELL GOYA 



SOFTWARE: jj2 PROGRAMAS POR EL PRECIO DE 1!! 
Y ADEMAS, COMPLETAMENTE GRATIS UNA CALCULADORA. INCREIBLE ^VERDAD? 



LEADERBOARD. 

MAP GAME. 

GREEN BERET _ 



ROCK'N LUCHA 

THE WAY OF THE TIGER_ 

GOONIES 

RAMBO 

PING PONG 



2.600 ptas. 
2.300 ptas. 
2.300 ptas. 
2.500 ptas. 
2.500 ptas. 
2.600 ptas. 
2.300 ptas. 
2.300 ptas. 



KNIGHT GAMES. 

NEXUS. 

«V» 



YIE AR KUNG FU 

SABOTEUR 

CAULDRON II 

ZORRO 



WORLD CUP 



2.300 ptas. 
2.300 ptas. 
2.300 ptas. 
2.300 ptas. 
2.300 ptas. 
2.300 ptas. 
2.100 ptas. 
2.500 ptas. 



SOFTWARE DE REGALO (OFERTA 2x1): 
FIGHTING WARRIOR - DUMMY RUN - INDIANA JONES - POLE POSITION 




RATON PARA COMMODORE 
TAPA COMMODORE 64 



9.900 ptas. 
1.100 ptas. 



JOYSTICK QUICK SHOT I 
JOYSTICK QUICK SHOT II 
JOYSTICK QUICK SHOT V 



1.395 ptas. 
1.695 ptas. 
1.695 ptas. 



Pedidos contra reembolso sin ningun gasto de envio. Telefs. (91) 275 96 16 - 274 75 02, 
o escribiendo a: MICRO-1. C/. Duque de Sesto, 50. 28009 Madrid 



24 INPUT 





Apirtaciones 






A5 


15 


LDA 


$15 




,0245 


A9 


00 




LDA 




,0154 


, C1 C6 


AO 


07 LDY 


#$07 


#$00 


,0156 


C5 


FC 


CMP 


$FC 


,C1CS 


EO 


02 


CPX 


#$02 


,C247 


85 


06 




STA 


$06 


,C15S 


90 


3D 


BCC 


SCI 97 


,C1CA 


DO 


02 


BNE 


$C1 CE 


,C249 


60 






RTS 




,C15A 


DO 


06 


BNE 


SC162 


,C1CC 


AO 


OE 


LDY 


A$OE 


,C24A 


A9 


ED 




LDA 


#$ED 


,C15C 


A5 


14 


LDA 


$14 


, C1 CE 


84 


02 


STY 


$02 


,C24C 


SD 


28 


03 


STA 


$0328 


,C15E 


05 


FB 


IW 


SS-B 


,C1DC 


20 


FD AE 


JSR 


$AEFD 


,C24F 


60 






RTS 




,0160 


90 


35 


BCC 


SCI 97 


,C1D3 


20 


9E B7 


JSR 


SB79B 


,C?50 


A9 


FB 




LDA 


#3F8 


,C162 


A9 


00 


L DA 


#$00 


,C!D6 


8E 


18 D4 


STX 


SD416 


,C252 


8D 


28 


03 


STA 


$0328 


,C164 


85 


FD 


STA 


SFD 


,C1D9 


20 


FD AE 


JSR 


SAEFC 


,0255 


60 






FTS 




,C166 


85 


FE 


STA 


SFE 


,C1DC 


20 


9E B7 


JSR 


$B79F 


,0256 


4 


66 


E5 


JP*F 


$€566 


„C168 


18 




CLC 




,C1DF 


8A 




TXA 




,€259 


A9 


IB 




LDA 


#$1B 


,0169 


AG 


00 


LDY 


£$00 


,C1EC 


A4 


0? 


LDY 


$02 


,C25B 


8D 


11 


DO 


STA 


$D011 


,C16B 


Bl 


FB . 


LDA 


($FB),Y 


,C1E2 


99 


05 D4 


STA 


SD405 


,Y ,C25E 


60 






RTS 




,C16D 


A A 




TAX 




,C1E5 


20 


FD AE 


JSR 


SAEFC 


,C25F 


A9 


OB 




LDA 


#$0B 


,C16E 


65 


FD 


ADC 


$FD 


,C1E8 


20 


9E B7 


JSR 


$B79E 


,C261 


8D 


11 


DO 


STA 


$D01 1 


,0170 


85 


FD 


STA 


$FD 


,C1EB 


8A 




TXA 




,C264 


60 






RTS 




,0172 


A5 


FE 


LDA 


SFE 


,C1£C 


A4 


02 


LDY 


$02 


,C265 


A9 


15 




LDA 


#$15 


,C1?4 


69 


00 


ADC 


#$00 


,C1EE 


99 


06 D4 


STA 


SD406 


,Y ,0267 


8D 


18 


DO 


STA 


SD01 8 


,C176 


85 


FE 


STA 


SFE 


,C1F1 


20 


FD AE 


JSR 


$AEFD 


,C26A 


60 






RTS 




,C178 


A9 


00 


LDA 


#$00 


,C1F4 


20 


9E B7 


JSR 


$B79E 


,C26B 


A 9 


17 




LDA 


#$17 


,C17A 


20 


CD BD 


jSR 


SBDCD 


,C1F7 


8A 




TXA 




,C26D 


8D 


18 


DO 


STA 


SD018 


,C17D 


A9 


20 


LDA 


#$2C 


,C1F8 


A4 


02 


LDY 


$02 


,C270 


60 






RTS 




,C17F 


20 


D2 FF 


JSR 


SFFD2 


,C1FA 


99 


04 D4 


STA 


£D404 


,Y ,0271 


A9 


09 




LDA 


#$09 


,C182 


A5 


FB 


LDA 


SFB 


,C1FD 


8E 


13 03 


STX 


$0313 


,C273 


4C 


D2 


FF 


JMP 


SFFD2 


,C184 


C5 


•14 


CUP 


$14 


,0200 


20 


FD AE 


JSR 


SAEFC 


,0276 


A9 


08 




LDA 


#$08 


,C186 


DO 


06 


BNE 


$C18E 


,0203 


20 


9E B7 


JSR 


SB79E 


,C278 


4C 


D2 


FF 


J MP 


SFFD2 


,0188 


A5 


FC 


LDA 


$FC 


,0206 


8A 




TXA 




,C27B 


20 


SA 


AD 


JSR 


$AD8A 


,018a 


05 


15 


CMP 


S15 


,C207 


A4 


02 


LDY 


$02 


,C27E 


20 


F7 


B7 


JSR 


$B7F7 


,C18C 


FO 


09 


BEG 


SC197 


,C209 


99 


01 D4 


STA 


SD4C1 


,Y ,0281 


4C 


A3 


A8 


J MP 


SA8A3. 


,C18E 


E6 


FB 


INC 


SFB 


,C20C 


20 


FD AE 


JSR 


SAEFC 


,C284 


20 


8A 


AD 


JSR 


SAD8A 


,C190 


DO 


D6 


BNE 


SC168 


,C20F 


20 


9E B7 


JSR 


$B79E 


; ,0287 


20 


F7 


B7 


JSR 


$87 FT 


,0192 


E6 


FC 


INC 


SFC 


,0212 


SA 




TXA 




,C28A 


A9 


00 




LDA 


#$00 


,C194 


40 


68 CI 


J MP 


SC168 


,C213 


A4 


02 


LDY 


$02 


,C28C 


A8 






TAY 




,C197 


A9 




LDA 


#$23 


,0215 


99 


00 D4 


STA 


$D40C 


,Y ,C28D 


91 


14 




STA 


($14), Y 


,0199 


20 


D2 FF 


JSR 


$FFD2 


,0218 


CE 


13 03 


DEC 


$031 3 


,C28F 


18 






CLC 




,C19C 


A6 


FD 


LDX 


$FD 


,C21B 


AD 


13 03 


LDA 


$0313 


,0290 


A5 


14 




LDA. 


$14 


,C19E 


A5 


FE 


LDA 


SFE 


,C21E 


A4 


02 


LDY 


$02 


,C292 


69 


01 




ADC 


#$01 


,C1A0 


4C 


CD BD 


JMP 


SBDCD 


,0220 


99 


04 D4 


STA 


SD404 


,Y ,C294 


85 


2B 




STA 


$2B 


,01 A3 


20 


8A AD 


JSR 


$AD8A 


,C223 


60 




RTS 




,C296 


A5 


15 




LDA 


$15 


,C1A6 


20 


F7 B7 


JSR 


SB7F7 


,0224 


A2 


00 


LDX 


#$00 


,C298 


69 


CO 




ADC 


#$00 


,01 A9 


A2 


00 


LDX 


#$00 


,0226 


8A 




TXA 




,C29A 


85 


2 




STA 


$2 


,C1AB 


E8 




INX 




,0227 


9D 


00 D4 


STA 


$D400 


,X ,C29C 


4C 


9A 


E3 


J MP 


SE39A 


,C1AC 


DO 


FD 


BNE 


$C1AB 


,C22A 


E8 




INX 




,029 F 


A.9 


3E 




LDA 


#$3E 


,C1AE 


06 


14 


DEC 


$14 


,C22B 


EO 


19 


CPX 


#$19 


,C2A1 


20 


D2 


FF 


JSR 


$FFD2 


,C1B0 


A.9 


FF 


LDA 


#$FF 


,C22D 


DO 


F8 


BNE 


$0227 


,C2A4 


A9 


12 




LDA 


#$12 


,C1B2 


05 


14 


CMP 


$14 


,C22F 


60 




RTS 




,C2A6 


20 


D2 


FF 


JSR 


$FFD2 


,C1B4 


DO 


F5 


BNE 


SC1AB 


,0230 


4C 


44 E5 


J!^P 


$E544 


,C2A9 


A5 


37 




LDA 


$37 


,C1B6 


C6 


15 


DEC 


$15 


, C233 


4C 


18 E5 


J MP 


SE518 


,C2AB 


38 






SEC 




,C1B8 


C5 


15 


CFSP 


$15 


,C236 


40 


EA E8 


J MP 


SE8EA 


,C2AC 


E5 


2D 




SBC 


$2D 


,C1BA 


DO 


EF 


BNE 


SC1AB 


,0239 


A9 


00 


LDA 


#$00 


,C2AE 


AA 




■ 


TAX 




,C1BC 


60 




RTS 




,C23B 


8D 


8A 02 


STA 


$028A 


,C2AF 


A5 


38 




LDA 


$38 


,C1BD 


20 


9E B7 


JSR 


SB79E 


,C23E 


60 




RTS 




,C2B1 


E5 


2E 




SBC 


$2E 


,cico 


AO 


00 


LDY 


#$00 


,C23F 


A9 


80 


LDA 


#$80 


,C2B3 


20 


CD 


BD 


JSR 


$BDCD 


,0102 


EO 


01 


CPX 


#$01 


,0241 


8D 


SA 02 


STA 


$028/! 


t ,C2B6 


A9 


60 




LDA 


#$60 


,C1C4 


DO 


02 


BNE 


$C1 08 


,C244 


60 




RTS 




,C2B8 


AO 


E4 




LDY 


#$E4 



INPUT 25 





Aplicaciones 






4C 


1E 


AB 


J MP 


SAB1E 




,C39F A9 44 




LDA 




,C2BA 


,C32 


.E A5 15 LDA $15 


#$44 


,C2BD 


A9 


00 




LDA 


#$00 


,C330 85 2E STA $2E 


,C3A1 20 D2 


FF 


JSR 


$FFD2 


,C2BF 


85 


C6 




STA 


$C6 


,C332 20 56 E1 JSR SE156 


,C3A4 A9 27 




LDA 


#$27 


,C2C1 


A5 


C6 




LDA 


SC6 


,C335 A2 00 LDX #$00 


,C3A6 20 D2 


FF 


JSR 


$FFD2 


,C2C3 


C9 


01 




CMP 


#$01 


,C337 B5 FB LDA $FB,X 


,C3A9 20 BA 


C3 


JSR 


$C3BA 


,C2C5 


DO 


FA 




BNE 


SC2C1 


,C339 95 2B STA $2B,X 


,C3AC 85 22 




STA 


$22 


,C2C7 


4C 


92 


AB 


JMP 


SAB92 


,C33B E8 INX' 


,C3AE 20 BA 


C3 


JSR 


$C3BA 


,C2CA 


A9 


08 




LDA 


#$08 


,C33C EO 04 CPX #$04 


,C3B1 AA 




TAX 




,C2CC 


AO 


01 




LDY 


#$01 


,C33E DO F7 BNE $C337 


,C3B2 A5 22 




LDA 


$22 


,C2CE 


91 


2B 




STA 


C$2B),Y 


,C340 60 RTS 


,C3B4 20 CD 


BD 


JSR 


$BDCD 


,0200 


20 


33 


A5 


JSR 


$A533 


,C341 20 9E B7 JSR $B79E 


,C3B7 4C E4 


A7 


J MP 


$A7E4 


,C2D3 


18 






CLC 




,C344 86 02 STX $02 


,C3BA 20 CB 


C3 


JSR 


$C3CB 


,C2D4 


A5 


22 




LDA 


$22 


,C346 20 FD AE JSR $AEFD 


,C3BD OA 




ASL 




,C2D6 


69 


02 




ADC 


#$02 


,C349 20 9E B7 JSR $B79E 


,C3BE OA 




ASL 




,C2D8 


85 


2D 




STA 


$2D 


,C34C 8E 13 03 STX $0313 


,C3BF OA 




ASL 




,C2DA 


85 


2F 




STA 


$2F 


,C34F A5 02 LDA $02 


,C3C0 OA 




ASL 




,C2DC 


85 


31 




STA 


$31 


,C351 C9 00 CMP #$00 


,C3C1 85 23 




STA 


$23 


,C2DE 


A5 


23 




LDA 


$23 


,C353 FO OB BEQ $C36C 


I ,C3C3 20 CB 


C3 


JSR 


SC3CB 


,C2E0 


69 


00 




ADC 


#$00 


,C355 AD 13 03 LDA $0312 


,C3C6 65 23 




ADC 


$23 


,C2E2 


85 


2E 




STA 


$2E 


,C358 20 D2 FF JSR $FFD2 


,C3C8 85 23 




STA 


$23 


,C2E4 


85 


30 




STA 


$30 


,C35B C6 02 DEC $02 


,C3CA 60 




RTS 




,C2E6 


85 


32 




STA 


$32 


,C35D 4C 4F C3 JMP $C34F 


,C3CB 20 73 


00 


JSR 


$0073 


,C2E8 


60 






RTS 




,C360 60 RTS 


,C3CE C9 3A 




CMP 


#$3 A 


,C2E9 


20 


8 A 


AD 


JSR 


$AD8A 


,C361 4C 9 A E3 J MP $E39A ,C3D0 29 OF 




AND 


#$0F 


m \* L> C- V 


20 


F7 


B7 


JSR 


$B7F7 


,C364 20 8A AD JSR $AD8A ,C3D2 90 02 




BCC 


SC3D6 


,C2EF 


A5 


14 




LDA 


$14 


,C367 20 F7 B7 JSR $B7F7 


,C3D4 69 08 




ADC 


#$08 


,C2F1 


85 


3F 




STA 


$3F 


,C36A AA TAX 


,C3D6 60 




RTS 




,C2F3 


A5 


15 




LDA 


$15 


,C36B A9 48 LDA #$48 


,C3D7 20 8A 


AD 


JSR 


$AD8A 


,C2F5 


85 


40 




STA 


$40 


,C36D 20 D2 FF JSR $FFD2 


! ,C3DA 20 F7 


B7 


JSR 


SB7F7 


,C2F7 


20 


13 


A6 


JSR 


SA613 


,C370 A9 27 LDA #$27 


,C3DD A9 5B 




LDA 


#$5B 


,C2FA 


38 






SEC 




,C372 20 D2 FF JSR SFFDS 


\ ,C3DF 20 D2 


FF 


JSR 


SFFD2 


,C2FB 


A5 


5F 




LDA 


$5F 


,C375 A9 24 LDA #$24 


,C3E2 A9 00 




LDA 


#$00 


,C2FD 


E9 


01 




SBC 


#$01 


,C377 20 D2 FF JSR SFFD2 


\ ,C3E4 A6 14 




LDX 


$14 


,C2FF 


85 


41 




STA 


$41 


,C37A 8 A TXA 


,C3E6 20 CD 


BD 


JSR 


$BDCD 


,0301 


A5 


60 




LDA 


$60 


,C37B 20 8B C3 JSR $C38B ,C3E9 A9 2C 




LDA 


#$2C 


,C303 


E9 


00 




SBC 


#$00 


,C37E 8A TXA 


,C3EB 20 D2 


FF 


JSR 


$FFD2 


,C305 


85 


42 




STA 


$42 


,C37F 20 90 C3 JSR $C390 ,C3EE A9 00 




LDA 


#$00 


,C307 


60 






RTS 




,C382 98 TYA 


,C3F0 A6 15 




LDX 


$15 


,C308 


A2 


00 




LDX 


#$00 


,C383 20 8B C3 JSR $C38B ,C3F2 20 CD 


BD 


JSR 


$BDCD 


,C30A 


B5 


2B 




LDA 


$2B,X 


,C386 98 TYA 


,C3F5 A9 5D 




LDA 


#$5D 


,C30C 


95 


97 




STA 


$97, X 


,C387 20 90 C3 JSR $C390 ,C3F7 20 D2 


FF 


JSR 


SFFD2 


,C30E 


E8 






INX 




,C38A 60 RTS 


,C3FA 60 




RTS 




,C30F 


EO 


04 




CPX 


#$04 


,C38B 18 CLC 


,C3FB 20 9E 


B7 


JSR 


$B79E 


,C311 


00 


F7 




BNE 


$C30A 


,C38C 6A ROR 


,C3FE 86 02 




STX 


$02 


,C313 


20 


8A 


AD 


JSR 


SAD8A 


,C38D 6A ROR 


,C400 20 FD 


AE 


JSR 


$AEFD 


,C316 


20 


F7 


B7 


JSR 


$B7F7 


,C38E 6A ROR 


,C403 20 9E 


B7 


JSR 


$B79E 


,C319 


A5 


14 




LDA 


$14 


,C3SF 6A ROR 


,C406 8 A 




TXA 




,C31B 


85 


2B 




STA 


$2B 


,C390 29 OF AND #$0F 


,C407 A6 02 




LDX 


$02 


,C31D 


A5 


15 




LDA 


$15 


,C392 18 CLC 


,C4C9 4C CD 


BD 


J MP 


$BDCD 


,C31F 


85 


2C 




STA 


$2C 


,C393 69 30 ADC #$30 


,C40C 05 00 




ORA 


$00 


,C321 


20 


FD 


AE 


JSR 


$AEFD 


,C395 C9 3 A CMP #$3 A 


,C40E 00 




BRK 




,C324 


20 


8A 


AD 


JSR 


SAD8A 


,C397 90 02 BCC $C39B ,C40F 20 79 


00 


JSR 


$0079 


,C327 


20 


F7 


B7 


JSR 


$B7F7 


,C399 69 06 ADC #$06 


,C412 DO 06 




BNE 


SC41A 


,C32A 


A5 


14 




LDA 


$14 


,C39B 20 D2 FF JSR $FFD2 ,C414 A9 00 




LDA 


#$00 


,C32C 


85 


2D 




STA 


$2D 


,C39E 60 RTS 


,C416 8D OE 


C4 


STA 


$C40E 



26 INPUT 





Aplicaciones 




































. ! 


















,£419 60 






RTS 




,CD1D FO 03 




BEG 


$CD15 


,CE1A 


33 




??? 




,C41A A9 


01 




LDA 


#$01 


,CD12 4C E7 


A7 


JMP 


$A7E7 


,CE1B 


C2 




??? 




,C41C 8D 


OE 


C4 


STA 


SC40E 


,CD15 AO 01 




LDY 


#$01 


,CE1C 


36 


C2 


ROL 


$C2,X 


,C41 P A9 


35 




LDA 


#$35 


,CD17 B1 7A 




LDA 


(£7 A) 


,Y ,CE1E 


39 


C2 


3F AMD 


$3FC2,Y 


,C421 3D 


04 


03 


STA 


$0304 


,CD19 85 FF 




STA 


$FF 


,CE21 


C2 




??? 




,C424 A9 


C4 




L&/I 


#"SC4 


,CD1B AO 02 




LDY 


#$02 


,CE22 


45 


C2 


EOR 


$C2 


,C426 8D 


05 


03 


STA 


$0305 


,CD1D B1 7 A 




LDA 


CS7A) 


,Y ,CE24 


4A 




LSR 




,C429 20 


8A 


AD 


\i SR 


SAD8A 


,CD1F 85 02 




STA 


$02 


,CE25 


C2 




??? 




,C42C 20 


F7 


B7 


JSP 


SB7F7 


,CD21 A2 00 




LDX 


#$00 


,CE26 


50 


C2 


BVC 


SCDEA 


, C42F A5 


14 




LDA 


SI 4 


,CD23 BD 80 


CE 


LDA 


$CE80 


f X ,CE28 


56 


C2 


LSR 


$C2,X 


,C431 8D 


OC 


C4 


STA 


SC40C 


,CD26 C5 FF 




CMP 


$FF 


,CE2A 


59 


C2 


5F EOR 


$5FC2,Y 


,C434 A5 


i c 




LDA 


$15 


,CD28 DO 09 




BNE 


$CD33 


,CE2D 


C2 




??? 




,C436 80 


CD 


C4 


STA 


$C40D 


,CD2A E8 




INK 




,CE2E 


65 


C2 


ADC 


$C2 


,C439 60 






RTS 




,CD2B BD 80 


CE 


LDA 


$CF80, 


,X ,CE30 


6B 




??? 




,C43A AD 


00 


02 


LDA 


$0200 


,CD2E C5 02 




CMP 


$02 


,CE31 


C2 




??? 




,C43D C9 


30 




CMP 


#$30 


,CD30 FO 10 




BEQ 


$CD42 


,CE32 


71 


C2 


ADC 


($C2),Y 


,C43F 90 


3B 




BCC 


$C47C 


,CD32 CA 




DEX 




, CE34 


76 


C2 


ROR 


$C2,X 


,C441 C9 


3A 




CMP 


#$3 A 


,CD33 C9 00 




CMP 


#$0C 


,CE36 


75 




??? 




,C443 BO 


37 




BCS 


$C47C 


,CD35 FO 06 




BEQ 


$CD3D 


,CE37 


C2 




??? 




,C445 AD 


OE 


C4 


LDA 


SC4GE 


,CD37 E8 




IUX 




,CE38 


84 


C2 


STY 


$C2 


,C448 FO 


32 




BEQ 


SC47C 


,CD38 E8 




INX 




,CE3A 


9F 




??? 


■ 


,C44A 20 


7C 


A5 


JSR 


$A57 C 


,CD39 EO 80 




CPX 


#$80 


,CE3B 


C2 




??? 




,C44D 84 


02 




STY 


$02 


,CD3B DO E6 




BNE 


$CD23 


,CE3C 


BD 


C2 


CA LDA 


$CAC2,X 


,C44F AD 


OC 


C4 


LDA 


$C40C 


,CD3D A2 OB 




LDX 


#$0B 


, CE3 F 


C2 




??? 




,C4$2 18 






CLC 




,CD3F 6C 00 


03 


J MP 


C$0300) ,CE40 


E9 


C2 


SBC 


#$C2 


,C453 65 


14 




ADC 


S14 


,CD42 86 02 




STX 


$02 


,CE42 


08 




PHP 


■ 


,C455 85 


63 




STA 


$63 


,CD44 20 73 


00 


JSR 


$0073 


,CE43 


C3 




??? 




,C457 AD 


OD 


C4 


LDA 


$C40D 


,CD47 20 73 


00 


JSR 


$0073 


,CE44 


41 


C3 


EOR 


($C3,X) 


,C45A 65 


15 




ADC 


$15 


,CD4A 20 73 


00 


JSR 


$0073 


,CE46 


61 


C3 


ADC 


C$C3,X) 


,C45C 85 


62 




STA 


$62 


,CD4D A6 02 




LDX 


$02 


,CE4S 


64 




??? 




,C45E A2 


90 




LDX 


A' $90 


,CD4F BD FF 


CD 


LDA 


SCDFF^X ,CE49 


C3 




??? 




,C460 38 






SEC 




,CD52 85 FC 




STA 


$FC 


,CE4A 


9F 




??? 




,C461 20 


49 


BC 


JSR 


$BC49 


,CD54 BD 00 


CE 


LDA 


SCECO, 


,X ,CE4B 


C3 




??? 




,C464 20 


DF 


BD 


JSR 


$BDDF 


,CD57 85 FD 




STA 


$FD 


,CE4C 


D7 




??? 


'-. 


,C467 85 


FE 




STA 


$FE 


,CD59 A9 4C 




LDA 


#$4C 


,CE4D 


C3 




??? 




,C469 84 


F4 




STY 


$F4 


,CD5B 85 FB 




STA 


$FB 


,CE4E 


FB 




??? 




,C46B AO 


00 




LDY 


#$00 


,CD5D 20 FB 


00 


JSR 


$0OFB 


,CE4F 


C3 




??? 




,C46D 81 


FE 




LDA 


($FE) ,Y 


,CD60 4C AE 


A7 


J MP 


$A7AE 


,CE50 


OF 




??? 




,C46F FO 


C6 




BEG 


$C477 


,CD63 60 




RTS 




,CE51 


C4 


49 


CPY 


$49 


,C471 99 


77 

F6 
C6 

02 


02 


STA 
INY 
BNE 
STY 
LDY 
RTS 


$0277, Y 

$C46D 

$C6 

$02 










,CE53 


C5 


00 


CMP 


$00 


,C474 C8 


,CEOO 00 
,CEQ1 CO 21 
,CE03 CO 40 




BRK 
CPY 
CPY 


#$21 
#$40 




,C475 DO 
,C477 84 
,C479 A4 
,C47B 60 


Listsdo de bytes 
(no es programa) 
,CE80 99 25 43 STA 


$4325, Y 








,CE05 CO 60 




CPY 


#$60 


, CE83 


BO 


97 


BCS 


$CE1C 


,C47C 4C 


7C 


A5 


J MP 


SA57C 


,CE07 CO A9 
,CE09 CO 01 




CPY 
CPY 


#$A9 
#$01 


,CE85 
,CE86 


52 
97 




??? 

9 





,CE0B 

,CDOO A9 OB LDA #$08 ,CEOD 

,CD02 8D 08 03 STA $0308 ,CEOF 

,CD05 A9 CD LDA #$CD ,CE11 

,CD07 8D 09 03 STA $0309 ,CE13 

,CDCA 60 RTS ,CE15 

,CDDB 20 73 00 JSR $0073 ,CE17 

,CDOE C9 40 CMP #$40 ,CE18 



C1 24 



C1 
CI 

d 

C1 
CI 
C2 
30 C2 



2B 
3D 

A3 
BD 
24 



CMP ($24,X) 
CMP C$2B,X) 
CMP ($3D,X) 
CMP C$A3,X) 
CMP ($BD,X) 
CMP ($24, X) 
??? 
BMI $CDDC 



,CES7 53 ??? 

,CE88 4D 89 50 EOR $5089 

,CE8E 97 ??? 

,CE8C 9C ??? 

,CE8D 27 ??? 

,CE8E 50 C2 BVC $CE52 

, CE90 4D 87 92 EOR $9287 

,CE93 27 ??? 



INPUT 27 



Aplicaciones 



,CE94 


53 




??? 






, CEBl 


31 


91 




AND 


($91), Y 


,CEC9 27 


??? 


,CE95 


91 


53 


STA 


C$53), 


,Y 


,CEB3 


30 


91 




BKI 


$CE46 


,CECA 48 


PHA 


,CE97 


8B 




??? 






,CEB5 


31 


47 




AND 


($47), Y 


,CECB 27 


??? 


,CE98 


53 




??? 






,CEB7 


89 






??? 




/ CECC B9 54 BE 




,CE99 


9C 




??? 






,CEB8 


42 






??? 




LDA $BE54,Y 




,CE9A 


53 




??? 






,CEB9 


A2 


4D 




LDX 


#$4D 


,CECF 54 


??? 


,CE9B 


A2 


55 


LDX 


#$55 




,CEBB 


B8 






CLV 




,CED0 91 A4 




,CE9D 


50 


A5 


BVC 


SCE44 




,CEBC 


92 






??? 




STA C$A4),Y 




,CE9F 


30 


A5 


BMI 


SCE46 




,CEBD 


A1 


A1 




LDA 


($A1,X) 






,CEA1 


31 


4B 


AND 


C$4B), 


Y 


,CEBF 


A2 


4C 




LDX 


#$4C 






,CEA3 


9C 




??? 






,CEC1 


8C 


4D 


94 


STY 


$944 D 






,CEA4 


96 


30 


SIX 


$30, Y 




,CEC4 


43 






??? 








,CEA6 


96 


31 


STX 


$31 ,Y 




,CEC5 


C7 






??? 








,CEA8 


A4 


50 


LDY 


$50 




,CEC6 


4E 


A2 


45 


LSR 


S45A2 






,CEAA 


9E 




??? 






















,CEAB 


30 


9E 


BH2 


$CE4B 




















,CEAD 


31 


C6 


AMD 


($C6), 


Y 


















,CEAF 


30 


C6 


BMI 


$CE77 






















^ 



'tf. 
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SIMULADOR 
DE VUELO 



LA SIMULACiON DE VUELO 



PROGRAMAS DE ENTRENAMIENTO 



VUELO MEDiANTE INSTRUMENTOS 

EL MOVIMIENTO DEL AVION 

PERDIDA DE VELOCIOAD 



Este programa de simulation de 
vuelo es similar a los que se emplean 
en las escuelas de vuelo para ensenar a 
los pilotos como tienen que volar utili- 
zando unicamente sus instrumentos; en 
la primera parte se reproduce la cabi- 
na 

Los programas de juegos varfan 
desde una fantasia desbordante que 
supone la entrada a mundos imagina- 
rios y la participation en aventuras, 
hasta la simulation de situaciones de 
la vida real. Esto te permite poner a 



prueba tu capacidad en situaciones po- 
tencialmcntc peligrosas, sin tener que 
hacerte dano o perder totalmente mi- 
Ilones de pesetas en costosos equipos. 
Los programas de simulation de 
vuelo contienen un elemento de fan- 
tasia: tu solo en la cabina, con toda la 
tripulacion aquejada de una misterio- 
sa enfermedad, con una sola mano 
consigues hacer que el avion tome tie- 
rra felizmente. Pero los sofisticados 
programas de este tipo tienen un uso 
practico real, hasta el punto de que 
casi todas las principales compamas de 



Imeas aereas y escuelas de vuelo los 
utilizan con regularidad. 



SIMULADORES DE 
ENTRENAMIENTO 

En el extremo superior de la escala 
esta la simulation total, la 11am ada 
«Fase 3» en la terminologia de las ad- 
ministraciones de aviacion civil, que te 
permite experimentar las mismas sen- 
sacioncs que un piloto en un avion de 
verdad. Tu ves lo mismo que el ve a 
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. - . - . . . de la carlinga 

7-jjena diferencia 

. - . ■ ■ . _:o vista para la 

. ~ :,~ i: sentiras io mis- 

: - :-: L-n los despegues y en 

nzajes. asf como las turbulen- 

o mismo que el oye, inclu- 

indicaeiones del control de 

. _.-:r j. En teoria un piloto pue- 

de completar todo su entrenamiento 

en ono de estos simuladores y obtener 

so bcencia sin tener que abandonar el 

suelo para nada. 

SIMULADORES DE 
SOBREMESA 



En el extremo opuesto de la escala 
estan los programas de simulation de 
vuelo muy parecidos al que veremos a 
continuation. 

Las unidades de sobremcsa se pue- 
den «volar» en el interior de un aula, 
y resultan utiles para la ensefianza de 
los procedimientos de cabina y para 
desarrollar la rapidez de reflejos de los 
pilotos. 

Resultan ademas esenciales para la 
ensefianza del vuelo por instrumentos, 
una tecnica que permite al piloto na- 
vegar apoyandose unicamente en el 
panel de instruments , algo que todo 
piloto ha de hacer cuando las condi- 
ciones metcorologicas son malas. 



LO QUE HACE EL 
PROG RAMA 



Este articulo consta de tres partes y 
en el se presenta un program a de si- 
mulation de vuelo en el que se supo- 
ne que te has hecho cargo del control 
del avion cuando este se encuentra a 
2000 metros de altura y a 20000 me- 
tros de distancia de la pista de aterri- 
zaje que constituye el objetivo. Por la 
ventanilla de la cabina es muy poco lo 
que puedes ver, solamente el horizon- 
te, cuando hay visibilidad, y un punto 
distante que es la pista de aterrizaje, 
por lo cual como piloto sensato que 
eres, tendras que confiar en tu expe- 
riencia y atendiendo a lo que te indi- 
que el panel de instrumentos ponerte 
a salvo en tierni a tf y a tus pasajeros. 
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LOS INSTRUMENTOS 



En el panel de instrumentos hay 
cuatro diales. El primero te inform a 
de la velocidad del aire. Este valor 
cambia segun que estes picando (tu 
velocidad aumenta), elevandote (tu 
velocidad disminuye) o modificando la 
potencia de los motores. Un contador 
que hay debajo del dial de la veloci- 
dad de) aire te indica la marcacion de 
tu brujula. 

El segundo dial te muestra donde 
csta el horizonte en relation con el ae- 
roplano. Esto significa que aunque el 
horizonte no resulte visible a traves de 
la ventanilla de la carlinga, todavia si- 
gues sabiendo donde esta. El contador 
que hay debajo de este dial te indica 
la marcacion de la pista de aterrizaje. 

El tercer dial te proporciona una 
lectura de la altitud. Tiene dos mane- 
cillas, una para los miles y otra para 
los cientos. El contador que hay deba- 
jo calcula la deriva del avion; como la 
pista de aterrizaje tiene una anchura 
de 100 metros una deriva de +50 o 
—50 hara que la pierdas. 

El ultimo dial te indica la velocidad 
del motor en revoluciones por minu- 
to. El contador que hay debajo te per- 
mite conocer la distancia a la que te 
cncuentras del centro de la pista. 



ATERRIZAJE 



Aunque hay programas de Simula- 
dores de vuelo en los que la imagen 
que se ve a traves de la ventanilla de 
la cabina se va haciendo mas nitida a 
medida que progrcsa la aproximacion, 
no es este nuestro caso. Por ello de- 
bes centrar la imagen radar de la pista 
de aterrizaje. 

En el momento en que asumes el 
control, las condiciones meteorologi- 
cas son buenas y la pista se encuentra 
en la direction norte. El aterrizaje en 
cstas condiciones no es dificil y el jue- 
go perderia en seguida su atractivo si 
no se pudieran modificar est as condi- 
ciones. Para afiadir mas dificultad, 
puedes especificar la velocidad y la di- 
rection del viento: por ejemplo un fu- 






rioso vendaval que sople de lado te 
pondra las cosas mucho mas dificiles. 



MOVIENDO El AVION 

El margen de los controles de que 
dispones se aproxima bastantc a los 




controles de un avion de vcrdad, aun- 
que estes pulsando teclas en vez de 
utilizar un joystick . 

En una aeronave real, el control de 
la elevation - — los movimientos hacia 
arriba y hacia aba jo — se ejerce mo- 
vicndo el joystick hacia atras o adclan- 
te, lo que hace que sc muevan los ele- 



vadores del piano de cola hacia arriba 
o abajo. Tu vas a utilizar dos teclas 
para conseguir este mismo efecto; en 
la tercera section de este articulo te- 
clearas la parte de programa que se 
ocupa dc csto. 

El balance del aeroplane — el mo- 
vimiento lateral — se controla movien- 



do el joystick de un lado a otro. Esto 
hace que se muevan los alerones, que 
son las superficies de control que hay 
en las alas. Tambien en este caso uti- 
lizaras dos teclas para hacer que se 
muevan hacia la derecha o hacia la iz- 
quierda. 

Tus dos ultimos controles te perini- 
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ten acelerar o retardar la velocidad 
del motor, lo cual resulla esencial 
para controlar los tiempos en la ma- 
niobra de aterrizaje y para asegurarte 
de que no entraras en perdida de velo- 
cidad. 



PERD1DA 
DE VELOCIDAD 



Cuando la velocidad do un avion 
cae por debajo de un determinado va- 
lor, se dice que entra en perdida de ve- 
locidad y en ese momento el avion em- 
pieza a caer como si fuera una piedra. 
En este programa, cuando la veloci- 
dad de tu avion cae por debajo de los 
30 metres por segundo, el aeroplano 
caera en picado abruptamente. Si te- 
nfas bastante altura en el momento en 
que esto ocurre, una action rapida te 
puede salvar, pero una entrada en per- 
dida es algo que aterroriza a cualquier 
piloto. 



DIVISION 
DEL PROGRAMA 



bl programa es demasiado largo y 
complejo como para darlo todo de una 
sola vez, por lo que lo hemos dividido 
en tres partes. 

Lo que se hace en esta primera par- 
te es configurar la pantalla para mos- 
trar el interior de la cabina, con su 
ventanilla, los cuatro duties debida- 
mente etiquetados y los letreros de los 
contadores. 

Los comandos que intervienen se- 
ran familiares para la mayoria de vo- 
sotros por haberlos visto ya en otros 
programas. 

La parte de programa introducida 
en la parte dos, hace posible que los 
diales y contadores sean sensibles al 
movimiento del avion y hay un coman- 
do temporal que hace que este vuele 
aleatoriamente sin que haya un piloto 
que actue sobre los controles, para 
que puedas ver funcionando el panel 
de instrumentos. La seccion final te 
permite tomar el control del avion y 
realizar una estimation de tu tccnica 
de aterrizaje para que puedas juzgar 
tus progresos. 



DIBUJANDO LA CABINA 

Teclea en tu ordenador el siguiente 
programa para tcner dibujada la cabi- 
na 

Para poder acceder a los graficos de 
alta resolution del Commodore 64. he- 
mos escrito este programa con el Si- 
mon's BASIC. Esto significa que no 
puedes hacerlo correr en un Commo- 
dore normal sin conectar el cartucho. 
No obstante, los que no tengais este 
cartucho no os desespereis. Pronto ve- 
remos en INPUT un programa en co- 
digo maquina que os permitira ej ecu- 
tar estos programas. La unica peque- 
na modification que tendras que ha- 
cer es poner una @ delante de cada 
comando de graficos. 

para Commodore-64 

1 REFi**ES NECESARIO EL 
CARTUCHO SIMON'S BASIC 

2 REI v i**CPI>TECLASCSHIFT+ 
A 3 

51D0 A$="VEL„AIRE H0RI2. 

ALTITUDC3E3DRPM H 
5110 B$="CABECE0 PISTA 

DERIVA DISTANCIA" 
5120 HIRES 0,1:MULTI 4,0,5: 

COLOUR 0,1 
5130 BLOCK 0,110,160,200,2 
5140 TEXT 0,120,A$,3,1,5: 

TEXT 0,175,B$,1,1,5 
5150 LINE 0,171,160,171,0: 

LINE 0,200,160,200,0 
5160 FOR Z=C TO 3:CIRCLE 20+ 

Z*40,150, 15,15,0 

5170 if z=1 then text 57,146, 
••ccomm.+r:]", 0,1,1 : 

NEXT Z 
5180 FOR K=0 TO 9:PL0T(20+Z* 

4C)+17*SIN(K*CPIi/5), 

150-19*C0S(K*[PIj75),0:- 

NEXT K,Z 
5190 GOTO 5190 

A$ y B$ definidos en las lmeas 5100 
y 5110 contiencn las etiquctas de los 
diales y los contadores. La line a 130 
dibuja un bloque negro debajo de la 
ventanilla de la cabina, para que con- 
trast© el interior oscuro del avion con 
el azul claro de la ventanilla. La lfnea 



5140 situa los letreros y la linea 5150 
dibuja dos lmeas para sugerir que los 
contadores etiquetados estan dispues- 
tos en un panel separado de los dia- 
les. La lfnea 5160 dibuja los circulos 
de los diales (realmente son algo elip- 
ticos . debido a la forma de trabaj ar de 
la pantalla grafica) y el diagrama del 
avion en el dial del horizontc. 

La linea 5180 dibuja los indicadores 
que rodean a los otros tres diales. 

Hasta aquf, este programa te mos- 
trara una consola de vuelo simulada. 
En la proxima parte podras teclear la 
section de programa que hara posible 
que tu avion vuele. 



J 
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DESPEGA PARA TU 
PRIMER VUELO 



En la segunda parte del simula- 
dor de vuelo, puedes arrancar los mo- 
tores y obsevar como adquiere vida tu 
panel de instrumentos. Pero ten cuida- 
do: ;EI piloto automatico se ha vuelto 
loco! 



En la primera parte has tecleado las 
Imeas que reproducian sobre la panta- 



11a el interior de la cabina de vuelo. 

En esta parte veras adquirir movi- 
miento a tu avion y como adquiere 
vida el panel de instrumentos; de 
niodo que, aunque todavia no has to- 
rnado los mandos, puedes ver como 
responde el panel de instrumentos del 
avion ante los movimientos del mis- 
mo. 




VUELO CON EL PILOTO AUTOMATICO 

APROXIMAC I ON A LA PISTA DE 

~ ATERRIZAJE 

~ DIB UJANDO LA TRAYECTORIA 

EL PANEL DE INSTRUMENTOS 



EL AVION VUELA 



Esta cs la parte mas larga del pro- 
grama, con bastante diferencia. Hay 
una larga serie de variables interde- 
pendientes que tienen que ser cons- 
tantemente actualizadas para contro- 
lar el avance del avion. Ademas hay 
que volvcr a dibujar constantemente 
el panel de instrumentos a medida que 
van cambiando la posicion y la altura 
del avion, ya que los diales tienen que 
ir describiendo el movimiento. 



LA APROXIMACION A LA PISTA 

Hay una imagen radar de la pista de 
aterrizaje que te mucstra el angulo 
con el que te estas aproximando. 

DIBUJO DE LA TRAYECTORIA 

Para poder dibujar con precision la 
posicion del avion, hay que tener en 
cucnta muchos factorcs. Por ejemplo, 
la direccion en la que estas volando, 
se ve afectada por la direccion del 
viento y por el balance del avion. La 
velocidad de avance depende parcial- 
mente de la velocidad del viento. La 
altura que vas perdiendo, o ganando, 
esta relacionada con la velocidad de 
vuelo, etc. 

Para poder actualizar los diales y los 
contadores, hay que hacer una estima- 
cion de las variables que van cambian- 
do, con arreglo a la forma en que afec- 
tan a las lecturas, despucs de lo cual 
se puede hacer de nuevo el dibujo. 

para Commodore-64 

10 GOTO 5000 

500 RA=AD*C:VX=AS*SIN(RA) 
510 VY=AS*C0SCRA):RETURN 
1000 PZ=PZ+GZ:PY=PY+GY:PX=PX 
+GX 
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1010 PT=PT+NC:RL=RL+BC 

1020 AS=AS+16*(TC*30-AS-8*PT 

)/AS 
1030 IF SL=1 THEN TEXT 60,50 

"PERDIDA**,0,3,8:SL=0: 

GOTO 1050 
1040 IF AS<30 THEN GOSUB 

1500 
1050 AD=AD+RL:IF AD<0 THEN 

AD^AD+360 
1060 IF AD>359 THEN AD^AD- 

360 
1070 VZ=AS*SIN(PT*C)-10+AS 

/15 
1080 6Z=VZ:GY=VY+WY: 

GX=VX+WX 
1090 IF VY=C THEN GD=-[PI]/2 

:GOTO 1110 
1100 GD=-ATN(VX/VY)/C 
1110 GOSUB 500 
1120 RETURN 
1500 SL=1:TEXT 60,50, 

"PERDIDA", 1,3,8 
1510 RL=INT(RND(1)*21)-9:FT= 

21~INT(RND(1)*5) 
1520 RETURN 
2000 LINE 20,150,20+13*SIN 

(AS*CPIII/200), 

150-13* 

C0S(AS*[PIJ/200) 
4 

2010 TN=PZ/100C:UN=PZ-1000* 

INT(TN) 
2020 LINE 100,150,100+6*SIN 

(TN*CPlD/5) / 150-6*COS 

(TN*CPi:/5),4 
2030 LINE 100,150,100+13*SIN 

(UN*CPU/500), 

150-13* 

C0S(UN*CPI]/500) 

A 
2040 LINE 140,150,140+13*SII\i 

(TC*EPi:]/5),150-13*COS 

CTC*ilPI]/5) / 4 
2050 TEXT 0,190,STR$(ABS(INT 

(AD))),4,1,7:RETURN 
2060 IF PY=0 THEN RB=0 
2065 IF PYOG THEN RB=ATN(PX 

/PY)/C:IF PY>0 THEN RB=^ 

RB+180 
2070 IF RB<0 THEN RB=RB+360 
2075 GOSUB 7000 
2080 TEXT 35,190,STRS(INTCRB 

)),1,1,7:TEXT 70,190, 

STRS(ABS(INT(PX))),1,1, 

7 
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2090 TEXT 110,190,STR$CINT( 

SQR(PY*PY+PX*PX))),1,1, 

7 
, 2095 S1=INT(RB):S2=ABS(INT 

CPX)) 
2096 S3=INTCSQR 

(PY*PY+PX*PX)) 
2098 IF KJ=1 THEN LINE X1 , 

Y1,X2,Y2,4 
2100 KJ=0:YC=150+(PT/3):X1= 

50:X2=70:Y1=YC+17*TAN( 

RL*2*C) :Y2=YC-17*TAN(RL 

*2*C) 
2110 IF(YC<137 OR YC>163) 

AND RL=0 THEN 2320 
2120 IF YK137 THEN X1=60-( 

60~X1)*C140-YC)/ 

CY1-YC):Y1=140;:G0T0 

2140 
2130 IF Y1>163 THEN X1-60-C 

60-X1)*(160-YC)/(Y1-YO 

■Y1^160 
2140 IF Y2<137 THEN X2=60-( 

60-X2)*(140-YC)/ 

CY2-YC) :Y2=140:G0T0 

2160 
2150 IF Y2>163 THEN X2=60-( 

60-X2)*(160-YC)/(Y2-YC) 

•Y24160 
2160 IF XK50 OR X2>70 THEN 

2190 
2170 LINE X1,Y1,X2,Y2, 

4:KJ=1 
2190 IF RL=RR AND PP=PT THEN 

2290 
2200 IF HF-1 THEN LINE X3, 

Y3,X4,Y4,0 
2210 HF=0:YC=33+PT*4:X3=0: 

X4=1 59: Y3=YC+59*TAN C RL* 

2*C):Y4=YC-59*TAN(RL* 

2*C) 
2220 IFCYC<0 OR YC>109) AND 

RL=0 THEN 2290 
2230 IF Y3<0 THEN X3=80-(80- 

X3)*(-YC)/(Y3-YC):Y3=0: 

GOTO 2250 

2240 IF Y3>109 THEN X3=80-( 
80-X3)*(109-YC)/(Y3-YC) 
- Y34 10 9 

2250 IF Y4<0 THEN X4=80-(80- 
X4)*(-YC)/(Y4-YC) :Y4=C: 
GOTO 2270 

2260 IF Y4>109 THEN X4=80-< 

80-X4)*(109-YC)/CY4-YC) 
:Y4=109 



2270 IF X3<0 OR X4>159 THEN 

2290 
2280 HF=1sLI8£r X3,Y3,X4,Y4, 

3 
2290 WB^AD:IF AD>180 THEN WB 

=WB-360 
2300 IF RB>180 THEN WB=WB+ 

360-RB:GOTO 2310 
2305 WB=WB-RB 
2310 IF ABS(WB)>60 AND ABS 

CPY)>1000 THEN 2350 







2320 AN=59/(60*SQR((X3-X4)* 
<X3-X4)+(Y3-Y4)*(Y3- 
Y4))) 

2325 X5=CX3+X4)/2+SGNCX3-X4) 

+WB*AN*(X3+X4) 
2330 Y5=(Y3+Y4)/2+2+WB*AN*( 

Y3-Y4) 
2335 IF X5<0 OR X5>159 OR Y5 

<0 OR Y5>109 THEN 2350 
2340 IF ABSCPYX1000 THEN R= 

S-Y5/10:G0T0 2350 
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2345 R=4000/ABS(PY):IF R*1C+ 

Y5>8G THEN R=8- 

Y5/10 
2350 G05UB 8G00 
2370 RR=RL:PP=RT:RETURN 
5000 PRINT'TSHIFT+CLR/HOMEII 

CCTRL-s-4]":NRM : COLOUR 6, 

6:PP=-1 :RR=-1 

5010 C=CPII!/18C:PY=-20000:PZ 

=2000:AS=150 
5020 PRINT" ESCRIBE LA VELO 



5050 PRINT AT(0,20)'"VEL. 

VIENTO ^";3*XO;' , iV5/s ,t : 

PRINT" DIRECCION = ";X1; 

"6RAD0S" 
5060 tfy^-XQ*C0SCX1'*C) 
5070 WX=-XG*SIN(X1*C) 
5080 GZ=VZ:GY=VY+WY:GX= 

VX+WX 

TC=5:RT=3:TP=5:WR=50: 

PAUSE 2 

REM 



5090 



5190 




CIDAD DEL VIENTC (CCTRL 

+611-50[CTRL+4]) Hf$" 
5025 PRINT"Y LA DIRECCICN 

c:CTRL+630-359llCTRL+41) 

GRADOSCCRSR abajoll": 

FLASH 5,10 
5030 INPUT X0,X1:IF X0>50 OR 

X0<1 OR XKO OR X1>359 

THEN 5000 
504G X0=X0/3:0FF:P0KE 650, 

128 



5500 GOSUB 2000:IF INTCRNDC1 
>*1Q)*1 THEN RL-RL+SGN 
(TL)*INT(RND(1)*4)-1 

5510 IF INT(RND(1)*1C)=1 

THEN PT=PT+3-INT(RND(1) 
•4+1 )*2 

5520 GOSUB 1000:1 F PZ<=0 
THEN 5540 

5530 GOSUB 2000: GOSUB 2060: 
GOTO 5500 

5540 GOTO 5540 



7000 TEXT 35,190,STR$(S1),2, 
1,7: TEXT 70,190, STR$ 
(S2),2,1,7 

7010 TEXT 110,190,STR$(S3), 
2,1,7:RETURN 

8000 IF M0=1 THEN LINE 78,0, 
OX,OY,0 

801C WG=1:0X=78-(16*SIN(RB* 
(PI/180))) :0Y=O6*ABS( 
C0S(RB*CIIPI3/180)))) 

8020 LINE 78,0,0X,0Y,2 

8025 WB=AD:IF AD>180 THEN WB 
=WB-36G 

8026 IF RB>180 THEN WB=WB+ 
360-RB.-G0T0 8040 

8030 WB=WB-RB 

8040 IF RW=1 THEN PLOT G1 , 

G2,0 
8050 RW=G:IF ABS(WB)>57 THEN 

RETURN 
8060 RX=X3+INTCC(X4-X3)/2) 

-SIN(WB*(L"PI]/180))*(X4 
~X3)*.6) 

8070 RY-Y3+C(Y4-Y3)*(CRX-X3) 

/<X4-X3))+2) 
8080 IF RY<0 OR RY>109 OR RX 

<0 OR RX>159 THEN 

RETURN 
8090 RW=1;PL0T RX,RY,2 :61=RX 

:G2=RY 
8100 RETURN 

En cuanto teclees RUN, ei progra- 
ma salt a a la linea 5000. Las Ifneas 
5000 y 5010 inicializan un grupo de va- 
riables que controlan la posicion del 
avion en el aire. Inicialmente el avion 
esta situado a 20000 metros de la pis- 
ta de aterrizaje y a 2000 metros del 
suelo. 

Las lincas 5020 a 5030 permiten al 
piloto elegir la intensidad y direction 
del viento y comprueban que las en- 
tradas suministradas estan dentro de 
los margenes permitidos. Estos valo- 
res se imprimen en la linea 5050, an- 
tes de que las line as 5060 y 5070 cal- 
culen las componentes de la velocidad 
del viento en la direccion de la mar- 
cha y en la direccion transversal a la 
misma. A continuation se utilizan WX 
y WY en la linea 5080 para ajustar la 
posicion del avion. 

La linea 5090 asigna los valores del 
cuentarrevoluciones (TC), los limites 
del balance (RT) y cabezada (TP) v la 
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anchura de la pista de aterrizaje 
(WR). 

La linea 5500 llama a la subrutina 
que comienza en la linea 2000 y ter- 
mina en la 2050. Esta subrutina actua- 
liza los diales. Las lineas 2000, 2020, 
2030 y 2040 dibujan las agujas con 
arreglo a la posicion y velocidad. 

Despues del retorno a la linea 5500, 
el resto de la misma y toda la linea 
5510 actuan supliendo a la rutina de 
control que anadiras en la proxima 
parte de este articulo. 



dad y asigna un valor aleatorio al ba- 
lance y la cabezada para simular la 
perdida de control del aeroplano. La 
linea 1 1 10 llama a la subrutina de la li- 
nea 500. Las line as 500 y 510 calculan 
la velocidad de ascenso o descenso y 
la velocidad transversal. 

Al volver el programa desde la li- 
nea 1120 a la linea 5520, comprueba 
si el avion ha tocado el suelo, saltan- 
do a la linea 5540 caso de que asi sea. 
La linea 5540 es una detencion tempo- 
ral. 



y S3; valores que se utilizan en las h- 
neas 7000 y 7010. 

El horizonte artificial se dibuja por 
medio de la sentencia LINE que figu- 
ra en la linea 2098; la correspondiente 
sentencia de borrado esta en la linea 
2170, donde KJ es simplemente un in- 
dicador para que el ordenador sepa 
cuando tiene que dibujar un nuevo ho- 
rizonte artificial. Las lineas 2100 a 
2160 actualizan las variables de con- 
trol. Las lineas 2200 a 2280 se ocupan 
del horizonte real. 




La linea 5520 llama a la subrutina 
que empieza en la linea 1000. Esta su- 
brutina actualiza todas las variables 
durante el vuelo del avion. Las lineas 
1030 y 1040 comprueban si ha habido 
perdida de velocidad, lo que ocurrira 
si has permitido que la velocidad de tu 
avion caiga por debajo de los 30 me- 
tres por segundo. Caso de que ocurra 
asi, el programa salta a la subrutina de 
la linea 1500, que presenta en panta- 
Ua el mensaje de la perdida de veloci- 
104 INPUT Juegos 



La linea 5530 llama a la subrutina 
que comienza en la linea 2000, que ac- 
tualiza los diales. Seguidamente se lla- 
ma a la subrutina de la linea 2060. Las 
lineas 2060 a 2070 actualizan la demo- 
ra de la pista de aterrizaje antes de 
que sc supriman las tres ultimas pre- 
sentaciones numericas que figuran por 
action de las lineas 2000 y siguicntes. 
Las nuevas lecturas se presentan en las 
lineas 2080 y 2090. En las 2095 y 2096 
se calculan nuevos valores para SI, S2 



En las lineas 2290 a 2370 se calcula 
la nueva posicion de la pista de aterri- 
zaje, utilizando la subrutina de las li- 
neas 8000 a 8100 para dibujar la posi- 
cion adecuada. 

Una vez que el horizonte ha sido di- 
bujado de nuevo, la presentation se 
actualiza compietamente y la linea 
5530 en via el programa a la 5500. Ob- 
serva que el bucle principal del pro- 
grama son precisamente estas cuatro 
lineas. 
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DETECCION DE OBJETOS I 
EN LA PANTALLA : 



DETECCION DE FORMAS EXTRANAS 



COMPROBACIONES DE COLOR 



EL COMANDO PEEK 

EL PROGRAMA DE LA PELOTA 



DETECCION DE LOS CHOQUES 



Tu ordenador puede seguir compli- 
cados graficos utilizando determinados 
comandos que Je permiten observar su 
propia palilalia. Esto resulta especial- 
mente util en los juegos en Io» que se 
producen colisiones 

En las situation es en que hay as 
ere ado una figura detallada sobre la 



pantalla, ^como puedes asegurarte de 
que el siguiente objeto que anadas a 
la imagen no coincidira con algo que 
ya habia alii antes? 

Una respuesta obvia es que seas cui- 
dadoso y sistematico al llevar la cuen- 
ta de las zonas de la pantalla que ya 
han sido utilizadas. Pero esto puede 
llegar a resultar enormemente compli- 
cado, y hay circunstancias en que pue- 
de ser casi imposible, como es el caso 
de los graficos moviles. Y sin embar- 



go este es precisamente el tipo de pro- 
blemas con el que te encuentras al es- 
cribir pro gramas de juegos y cos as pa- 
recidas en las que hay invasores y ve- 
hiculos espaciales moviendose por una 
galaxia, o fantasmas recorriendo un 
laberinto. En tales casos tienes que 
asegurarte de que no se impriman dos 
graficos en el mismo sitio, o de que es 
lo que sucedera si se produce la coli- 
sion, por ejemplo. que se desintegre 
la nave espacial. 
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REPRESENTACION EN 

ESP ANA DE: 
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PROVENZA. 385-387 
TEL. (93)207 24 99* 



TELEX 97791 
08025 BARCELONA 



IMPRESORA PARA SU COMMODORE 



(optima relation precio/prestaciones) 



— Cabezal 9 agujas 
-— Doble operatividad 
— Cinta autoretintada 
—Tampon retintable 
— Ausencia de rodillo 
—No dobla el papel 
— Efevadores inferiores 
— Admite texto ngido 
— M aximos tipos de escritura 



Report ( -j y 



%®mft 



Modelo SUPER C+, 120 cps, 
NLQ, ASCH y COMMODORE 



• Conexion directa a Commodore 
(cable incl.) Traccion y friccion 




LA IMPRESORA PARA COMMODORE, ASCII Y PC'S COMPATIBLES 

(Maxima versatilidad/precio ajustado) 

- RITEMAN 10-C 

—140 cps, traccion y friccion 

— Paralelo centronics/Gommodore serie DIN 

— Tablas ASCn y PC en Rom interna 

— Tabla 100% Commodore y 8K RAM en modulo 

— Interface Commodore exterior inchiido 

— RS 232-C optional 




NOTA: Para Aplicaciones en las que se necesite mas velocidad, o mayor tamafio de carro, tambien 
pueden aplicarse nuestros interfaces externos a los modelos RITEMAN 10/II y RITEMAN 15. 



HMn 



Commodore es marca registrada de Commodore Business Machine, Inc. 




DETECCION DE FORMAS 
EXTRAtSIAS 



Supongamos por ejemplo que de- 
seas escribir un programa que haga 
aparecer en pantalla una pelota dan- 
do botes. En este caso la cosa es muy 
sencilla: como conoces las coordena- 
das de los cuatro lados de la pantalla, 
puedes incluir en tu programa cuatro 
condiciones IF ... THEN para com- 
probar si la pelota ha llegado o no a 
uno de los cuatro lados. Ello se hace 
comparando las coordenadas de la pe- 
lota con las coordenadas conocidas de 
los lados. Pero ^que sucede euando lo 
que quieres comprobar es si la pelota 
ha golpeado contra un objeto de for- 
ma mas extrana, por ejemplo circular? 

Podrfas utilizar el mismo metodo, 
disponiendo unas cuantas comproba- 
ciones del tipo IF . . . THEN que con- 
tengan los detalles de las coordenadas 
del cireulo para ver en que puntos gol- 
pea la pelota con los lados. Pero de- 
bido a que la forma curva es especial- 
mente compleja, se necesitarfa un nu- 
mero de comprobaciones muy grande. 
Sabes que el ordenador necesita mu- 
cho tiempo para ejecutar cada com- 
probacion IF ... THEN. Un programa 
escrito de esta forma resultarfa extre- 
madamente lento, y el movimiento re- 



sult ante sobre la pantalla se produci- 
ng a base de tirones o sacudidas. 

Existe un lirnite para las velocida- 
dcs que es posible obtencr utilizando 
el BASIC. Pero tu ordenador tiene un 
comando que te permite detectar la 
presencia sobre la pantalla de cual- 
quier objeto con mucha mayor rapi- 
dez que la comprobacion de las coor- 
denadas. Esto es posible aunque no se 
conozca su posicion. 



EL COLOR POR MEDIO DE 
NUMEROS 

El comando PEEK en el Commodo- 
re te devuelve como respuesta el co- 
lor especificado en cada caracter cua- 
drado. Esto significa que puedes de- 
tectar la presencia de cualquier obje- 
to, sin mas que especjficar su color y 
comprobando todas las posiciones de 
pantalla. Asi, en el ejemplo anterior, 
con un cireulo rojo resultarfa el nume- 
ro de codigo del color rojo cada vez 
que se presentara. Comprobando lini- 
camente este codigo el programa po- 
drfa hacer que la pelota rebotara ha- 
cia afuera del cireulo, o cualquier otra 
cosa. 

En realidad tanto el Commodore 64 
como el Vic dan como respuesta un 
numero del al 15, que es el niimero 



del color. El Commodore 64 le suma 
240 a cada numero, con lo que resulta 
un numero comprendido entre 240 y 
255. No tienes mas que restar 240 del 
numero que obtengas, para tener el 
numero del color. Asi, si por ejemplo 
has hecho un PEEK en una determi- 
nada direccion de un caracter de co- 
lor, y has obtenido como respuesta 
240, el valor de color que resulta es el 
0, que corresponde al negro. 

En cuanto a la sintaxis de este co- 
mando, digamos que en el Commodo- 
re es ligeramente diferente de la utili- 
zada en otros ordenadores, ya que en 
I agar de utilizar las coordenadas de 
pantalla situadas entre parentcsis para 
que el ordenador sepa en que cuadra- 
do estas interesado, lo que hace es 
aplicar un PEEK en las dirccciones 
reales de memoria que contienen los 
detalles de la zona de pantalla de que 
se trate. La direccion del primer ca- 
racter cuadrado cs 55296 y la del ulti- 
mo caracter es 56295. Este «fichero» 
ocupa exactamente 1000 bytes; re- 
cuerda que la pantalla esta formada 
por 25 lineas de 40 caracteres. 

La primera direccion corresponde 
al caracter cuadrado situado en la es- 
quina superior izquierda de la panta- 
lla, la siguiente direccion es la del si- 
guiente caracter de esa linea, etc. Esto 
significa que los detalles del color del 
caracter situado en la esquina inferior 
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derecha de la pantalla, estan contcni- 
dos en la direction 56295. En conse- 
cuencia el comando adopta la siguien- 
te forma: 

PRINT PEEK (56296) AND 15 

(La ultima parte de la instruction 
hace que resulte un mimero del al 
15). Por desgracia, no puedes invertir 
el proceso y cambiar los colores de 
cada caracter cuadrado. Sin embargo, 
si que puedes POKEar diferentes va- 
lores en el fichero de atributos de tu 
ordenador. 

Teclea y ejecuta el siguiente progra- 
ma, que constituye un ejemplo de uti- 
lization del comando PEEK. 

para C-64 y Vic-20 

1 REM**nSIGNIFICA ESPACIO 

5 S=40:CC=55296:D=21:SC=1024 
:A1=18::A2=10 

10 FOR Z=0 TO S-1 : PRINT 

,r CCTRL+53rSHIFT++] n ; :RS=^ 
R$+"CCRSR izq.IT:S$=S$+ 
"C:":NEXT Z 

20 FOR Z=C TO DiPRINT" 

CSHIFT++3 [CTRL+9: [CRL+8] " 
LEFT$(S$,S-2) "ECTRL+5D 
CTRL+OD [SHIFT++] "; : D$=D$+ 
'TCRSR abajoj":NEXT Z 
FOR Z=0 TO S-1 :PRINT 
"CSHIFT++3";:NEXT Z 






50 FOR Z=1 TO SrX^CINTCRND 
(1 )*A1)+1)*2:Y=(INT(RND 
(1)*A2)+1)*2 

60 PRINT "CCLR/HOMEHIICRSR 
abaj o3"LEFT$CD$,Y) LEFTS 
(R$,X)"nCTRL+91[: M :NEXT 

70 X=10:Y=10:XV=-1:YV=1 

80 POKE SC+X+Y*S,215:OY=Y: 
0X=X 

90 X=X+XV:Y=Y+YV 

100 C1=PEEK(CC+(X-1)+Y*S) 

AND 15 
105 C2=PEEK(CC+X+(Y-1)*S) 

AND 15 
110 C3=PEEK(CC+(X+1)+Y*S) 

AND 15 
115 C4=PEEKCCC+X+(Y+1)*S) 

AND 15 
120 IF C1=4 OR C3=4 THEN XV^ 

-XV 
125 IF C2=4 OR C4=4 THEN YV= 

-YV 
130 POKE SC+0X+0Y*S,160:G0T0 

80 

Para el Vic, teclea las lineas 10 a 130 
igual que en el pro grama del C-64, 
afiadiendo a continuation lo siguiente: 

5 S=22:CC=38400:D=19:SC=7680 
:A1=9:A2=8 



Los programas anteriores empiezan 
por establecer un contorno y una se- 
rie de cuadrados posicionados aleato- 
riamente, todos del mismo color (pur- 
pura). La pelota es de un color distin- 
to, y naturalmente lo mismo ocurre 
con el color de fondo. 

La linea 5 define las variables que 
intervienen en el programa. S es el nu- 
mero de caracteres de una linea (se 
utiliza una variable para ello, ya que 
el Commodore 64 y el Vic tienen pan- 
tallas de tamanos diferentes); CC es la 
direction de comienzo de la memoria 
de color de la pantalla, que tambien 
es diferente para el 64 y el Vic, como 
tambien lo es la direction de comien- 
zo de la memoria de pantalla a la que 
hemos llamado SC. Las dos ultimas 
variables, Al y A2, son los limites en- 
tre los cuales el ordenador puede si- 
tuar bloques aleatorios. Estos limites 
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se fijan para definir un area mas pe- 
quena que la definida por el contor- 
no, para evitar que alguno de los blo- 
ques se sitae en la misma posicion que 
alguno de los de los hordes. 

En las lineas 20 a 60 se establecen 
los bordes y se anaden los cuadrados 
aleatorios. A continuacion el ordena- 
dor mueve su cursor y define cuatro 
nuevas variables (x e y para la posi- 
cion de la pclota y xv e yv para la ve- 
locidad inicial en cada una de las dos 
direcciones). La linea 80 sirve para po- 
kear la pelota en la pantalla. Esto es 
realmente lo que hace, mas bien que 
imprimirla, ya que para hacer un 
PRINT se requeririan mas caracteres 
de control del cursor, lo que nana que 
el programa resultase mucho mas len- 
to; en tal caso el ordenador tendria 
que desplazar primero el cursor y a 
continuacion hacer un PRINT de la 
pelota. 

Lo que realmente hace la instruc- 
tion de POKE es cargar el valor 215 
en la posicion de pantalla calculada 
por el programa, que es a la que debe 



ir a parar la pelota. El numero 215 es 
el codigo ASCII del caracter que re- 
presenta a la pclota. 

En la linea 90 se suma la componen- 
te x de la velocidad (xv) a la coorde- 
nada x y la componente y de dicha ve- 
locidad (yv) a la coordenada y, obte- 
niendo asi la nueva posicion de la pe- 
lota. 



COMPROBACIOISf DEL COLOR 



En las cuatro lineas siguientes se de- 
finen cuatro variables, CI a C4, que 
corresponden a los numcros de color 
de los cuatro cuadrados que rodean a 
la pelota. A continuacion hay dos li- 
neas de programa en las que se hace 
la comprobacion de color; el color 4 
es el del contorno y los cuadrados 
aleatorios. 

Si aparece un 4 correspondiendo a 
alguno de los cuatro cuadrados que ro- 
dean a la pelota, la siguiente parte del 
programa hara que esta invierta su tra- 
yectoria con una direccion opuesta a 
la que llevaba antes de chocar con el 



Si se te hace dificil encontrar INPUT 

en tu kiosco habitual, 

reservalo por adelantado, o haznoslo saber 

para que podamos remediarlo 



obstaculo. Se hacen dos comprobacio- 
nes separadas, una en la direccion ho- 
rizontal (eje x) y otra en la direccion 
vertical (eje y). Observa que no se tra- 
ta simplemente de invertir el rnovi- 
miento de la pelota en las dos direc- 
ciones. Si asi se hiciera la pelota siem- 
pre se iria por donde habia venido. 

Las dos comprobaciones para la x, 
correspondientes a los cuadrados si- 
tuados a derecha e izquierda de la pe- 
lota, se hacen en la misma sentencia 
IF ... THEN. Se puede hacer esto de- 
bido a que el resultado es el mismo si 
es cierta una cualquiera de las dos con- 
diciones. La componente x de la velo- 
cidad se invierte mediante un cambio 
de signo, pasando de positiva a nega- 
tiva o vice vers a; asi -5 se convierte en 
5 y 5 se convierte en -5. Lo mismo 
puede decirse de las comprobaciones 
para la componente y. 

La ultima linea del programa pokea 
el valor 160 en la posicion antigua de 
la pelota (contenida en las variables ox 
y oy), para borrarla de la pantalla. Se- 
guidamente el programa se vuelve a la 
linea 80 para seguir con el movimien- 
to de la pelota. 

Seria muy sencillo ariadir unas 
cuantas lineas al programa anterior 
para convertirlo en un juego. En fu- 
tures articulos de INPUT utilizaremos 
este comando en una amplia variedad 
de rutinas de juegos. 
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CARTUCHO FREEZE FRAME MKIII 

EL MEJOR DE LOS METODOS DE BACKUP ES AHORA TODAVIA MEJOR. 

NUEVA VERSION MKIII 

El cartucho le hace BACKUPS de: 

CINTA A DISCO * CINTA A CINTA * DISCO A DISCO * DISCO A CINTA 

FUNCIONA CON: Ordenadores: C-64, C-128 y C-128/D (en modo C-64) - Uni- 
dades de disco; 1541, 1570, 1571 - Datassette: Commodore o compatible. 
Hace el BACKUP: Ocupando el menor espacio de disco o cinta posible. Tam- 
bien de proqramas MULTIPROGRAMAS. 100% de exito en el BACKUP. Salva 
a disco en modo TURBOSAVE, TURBOLOAD Y AUTO RUN, o a velocidad Nor- 
mal {para los que tengan un turbo instalado en la unidad de disco), y en cinta 
salva a unos 2.400 baudios (TURBOSAVE), TURBOLOAD Y AUTORUN. Es to- 
tal menteTRANSPARENTE, lo que implica que no ocupa memoria y que es totalmente compatible con cual- 

IMPORTANTE: Los backups corren INDEPENDIENTEMENTE del cartucho FREEZE FRAME MKII. 

ATENCION: No se deje influenciar por otros medios de BACKUP. El cartucho FREEZE FRAME fue el pri- 
mero en nacer y ha dado lugar a muchas imitaciones. Pero sigue siendo el LIDER. De exclusivo uso 

personal. , . 

GARANTIA: 6 meses. PRECIO: 11.900 ptas. (INCLUIDO: IVA + Gastos de envio). 

DELTABIT ofrece a sus CLIENTES la posibilidad de cambiarles el MKII por la nueva version MKIII, al precio 
de 4.000 ptas. (IVA + gastos, incluidos). 

INTERFACE COSMOS' THOUG 

Este interface le permite hacer backups de seguridad de CINTA A CINTA de TODO software en soporte 

cassette (de CUALQUIER ordenador personal). 

Funciona con: C-64, C-1 28, C-128/D y dos datassettes Commodore o compatibles (o una datassete y una 

cassette de audio normal). 

100% de exito GARANTIZADO en el backup. De exclusivo uso personal. Testigo acustico de volu- 

men regulable. GARANTIA: 12 meses. PRECIO: 4.900 ptas. (INCLUIDO: IVA + Gastos de envio). 
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/; Arras f re una radilla par el as fallal I 

Aguante el manque de la tarrera a 
180 km/h., sin que le reihinen los dientes. 



Hay dos pilotos junto a usted. Uno 
viene por detras y el otro a la allura de 
su codo. El rugido de las motos es 
ensordecedor. 



El viento golpea su casco; su 
adrenalina esta subiendo como la 
cspuma, 




Tumba su moto hacia la derecha... y ha sido golpeado. 
esta volando y dando tumbos junto con la moto. 

Aparte sus ojos de la carrctera una 
milesima de segundo y acabara en la 

cunela. 

Todo esta borroso; no hay tiempo para 
pensar. La proxima eurva acaba en un 
precipicio y es muy cerrada; los 




neumaticos de la moto que le precede, ' 
hacen saltar grava sobre su... su... 

Se oye un telefono £un telefono? 
jjHcy!! espere un momento. Esto no es 
una moto, es una silla, Ahora todo 
vuelve a la realidad. 

Si, usted esta en casa, la pizza esta 
aqui, el ordenador esta conectado. 
Parece, que al final va a ser otra 
apacible noche despues de todo. 

Si Super-Cycle fuera un poco mas 
realista, usted necesitaria un seguro 
para conducirlo. 
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ORDENADORES, PUZZLES 
Y MATEMATICAS 



TIPOS DE PUZZLES 



USO DEL ORDENADOR 



ECUACIONES SIMULTANEAS 



PRUEBA Y ERROR 



TRUCOS MATEMATICOS 



Agudiza el ingenio y pon a prueba 
tu destreza en programacion con estos 
dificiles rompecabezas. Tambien 
aprenderas aqui unas cuantas tecnicas 
nuevas para resolver sistemas de ecua- 
ciones. 

A estas altoras de nuestra andadu- 
ra en INPUT, ya tienes una buena 
base en casi todas las tecnicas de pro- 
gramacion en BASIC. Dado un pro- 
blema cualquiera, deberias ser capaz 
de escribir un programa para resolver- 
lo (en el supuesto de que realmente 
pueda ser resuelto). Pero a menos que 
tengas un hobby especial o algun pro- 
yecto entre manos que haga uso del 
ordenador, con frecuencia es dificil 
pensar cosas con las que ponerse a ha- 
cer pruebas. 

Los rompecabezas ofrecen un desa- 
fio que suele ser bienvenido, ya que 
constituyen una forma entretenida de 
practicar la programacion y de mante- 
ner al dfa tus habilidades. Han sido 
muy populares durante millares de 
afios. Se sabe que los egipcios disfru- 
taban resolviendo rompecabezas y que 
los antiguos griegos eran extremada- 
mente aficionados a los rompecabezas 
y paradojas matematicas y logicas. De 
hecho muchos problemas que empeza- 
ron como un simple divertimento con- 
dujeron posteriormente a importantes 
descubrimientos en matematicas y en 
otras ciencias. 

La resolution de un problema con 
exito te hara sentir una sensation de 
satisfaction y, si parti cipas en alguno 
de los cada vez mas abundantes con- 
cursos organizados por las revistas de 
informatica, puedes ganar muchos 
premios. Pero la solucion de estos 
rompecabezas te ensenara ademas so- 
bre programacion mucho mas de lo 
que puedes aprender por simples lec- 
turas sobre el tenia ya que te obliga a 
trabajar con tus propios metodos y a 
poner a prueba tus propias ideas. 
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PUZZLES 
PARA ORDENADOR 



Existen muchos tipos de rompeca- 
bezas, no todos de los cuales son ade- 
cuados para ser resueltos por medio 
de ordenador. Muchos de ellos requie- 
ren una idea feliz o un poco de razo- 
namiento logico. Un ejemplo clasico 
del tipo que requiere razonamiento lo- 
gico es el siguiente. Un hombre posee 
tres cosas: un lobo, una oveja y una 
berza, las cuales tiene que transportar 
a la orilla opuesta de un rio. Pero el 
bote que utiliza es muy pequeno y solo 
puede Uevar una cosa cada vez. Y si 
deja en tierra el lobo y la oveja, el 
lobo matara la oveja, mientras que si 
deja a la oveja y la berza, la oveja se 
comera la berza. ^Como puede hacer 
para pasar a la otra orilla del rio las 
tres cosas y tenerlas intactas? 

Este enigma puede resolverse con 
un ordenador (si te gusta, puedes in- 
tentar escribir un programa que lo 
haga), pero es mucho mas rapido ha- 
cerlo con papel y lapiz o directamente 
de memoria. 

Los tipos de enigmas que mejor se 
resuelven por ordenador son los que 
contienen un cierto ntimero de hechos 
y cifras, en los que se pide encontrar 
el valor de alguna incognita. Otros 
que tambien funcionan bien sobre or- 
denador son los que exigen realizar ta- 
reas complicadas de tipo aritmetico o 
geometrico. En tales casos es mas ra- 
pido escribir un programa que resuel- 
va el problema que intenfar hacerlo 
por ti mismo. 

Este articulo te ensenara la forma 
de resolver tres de los tipos mas co- 
munes de puzzles. Antes de mirar las 
soluciones, merece la pena que te en- 
tretengas en gastar algo de tiempo in- 
tentando resolverlos tu solo. Despues 
pasa ya a consultar los programas y la 
explication de su funcionamiento. 



SIMPLIHCACION D| PROBLEMAS 

Si no estas muy acostumbrado a re- 
solver adivinanzas, al principio puede 
que la cosa te resulte bast ante dificil. 
Se requiere un poco de practica para 
separar la informacion esencial de la 
masa de palabras confusas, que solo 
sirve para despistar. De hecho los 
enigmas de) primer tipo se basan en 
las palabras que enmascaran lo que 
con frecuencia es un problema bastan- 
te sencillo. Cuando se le despoja de 
sus palabras, el enigma conduce habi- 
tualmente a la solucion de un sistema 
de ecu aci ones. Aqui tienes un sencillo 
problema que puedes resolver sin or- 
denador y que te ayudara a entender 
los principios que intervienen. 

Un grupo de amigos entra en un bar 
y pide tres cafes y dos tes. La cuenta 
asciende a 176 pesetas. Al dia siguien- 
te se les agrega alguien mas, y piden 
el doble de tes y un cafe menos. Esta 
vez la cuenta sube 16 pesetas mas. 
^Cuanto cuesta la taza de te? 

Si eliminas toda la informacion no 
esencial y utilizas letras en vez de pa- 
labras, el problema se reduce a 3c + 
2t = 176 y 2c + 4t = 192. 

A esto se le llama sistema de ecua- 
ciones simultaneas, porque han de sa- 
tisfacerse las dos al mismo tiempo. 
Para poder resolver un sistema de 
ecuaciones simultaneas se necesitan 
tantas ecuaciones como incognitas. En 
este caso hay dos incognitas a las que 
hemos llamado c y t, asi' como dos 
ecuaciones, por lo que el sistema en 
principio tiene solucion. Ademas las 
ecuaciones son lineales ya que ningu- 
na de las variables aparcce elevada a 
una potencia mayor que 1. Por ejem- 
plo —3c 2 + 21 = 176 es una ecuacion 
no lineal que se resuelve por un me- 
todo diferente. 

Para resolver el problema puedes 
reordenar la segunda ecuacion, lo que 
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te dara c = (192 — 4t)/2 y a continua- 
tion sustituir en la primera. Se obtie- 
ne 3(192 - 4t)/2 + 2t = 176. Reagru- 
pando de nuevo los terminos, se ob- 
tiene t = 28, por lo que una taza de 
te cuesta 28 pesetas. 

Las ecuaciones con dos incognitas 
como esta son faciles de resolver y las 
de tres incognitas tampoco son dema- 
siado dificiles. Pero para un mayor nu- 
mero de incognitas el ordenador resul- 
ta decisivo a la hora de hacer por ti el 
trabajo mas duro. 

EL VENDEDOR DE SELLOS 



Aqui tienes el primer enigma real 
que debes resolver. 

Un vendedor de sellos tiene una 
caja con sellos extranjeros que piensa 
vender en paquetes de seis valores di- 
ferentes. El precio de los paquetes 
esta codificado desde la A a la F. Seis 
jovenes miembros de un club fi- 
latelico se presentan a la vez dis- 
puestos a gastarse todo el dine- 
ro que llevan en el bolsillo como 
se ve en el cuadro 1 . 

A B C D E F TOTAL' 



Elena 


6 


2 


3 


1 


1 


2 


341 


Jaime 


14 


11 





1 


2 


i 


469 


Anita 





1 


3 


6 


4 


3 


598 


Mar 


5 


3 


5 


2 


1 


1 


376 


Lui s 


12 


1 


4 


4 


3 


2 


587 


Clara 


8 





1 


1 





3 


293 



La pregunta es: ^Cual era el precio 
de cada paquete? 

El intentar resolver este sistema de 
ecuaciones eliminando una variable en 
cada paso, es posible, pero requeriria 
mucho tiempo y se presta a que se co- 
metan errores de calculo. Con el si- 
guiente programa podras resolver esta 
adivinanza asi como cualquier otro sis- 
tema de ecuaciones lineales simulta- 
neas, las cuales se presentan en mu- 
chos tipos de problemas y no solo en 
la resolucion de acertijos. 

Existen varias formas de resolver 
sistemas de ecuaciones como este, y 
puedes encontrar metodos diferentes, 
pero el programa que sigue es rapido 

:r".i::vamente corto: 



10 PR1NT"LSHIFT+CLR/ 
1NPUT"INTR0DUCE 
EL NO. DE FILAS"; 
PRINT 

DIM ACR,C),B 
CR,C) / A$(C-1) 



HOME]": 
R:C=R+1 



30 
40 



50 
60 
70 



FOR K=1 TO C-1 

PRINT'NOMBRE DE LA 

INC0GNITA*';K;:INPUT 

A$(K) 

NEXTrPRINT 

FOR J=1 TO R 

PRINT"C0EFICIENTES 

FILA";J 




Progr*!" 1000 " 



80 FOR K=1 TO C 

90 INPUT A(J,K) 

1G0 B(J,IO=A(J,lO 

110 NEXT:NEXT 

120 FOR L=1 TO R 

130 GOSUB 230 

140 GOSUB 280 

150 NEXT 

160 PRINT" ESH I FT+ CUR/HOME]" 

170 FOR K=1 TO C-1 s PRINT TAB 
C8*K-7);A$CK);:NEXT:PR1N 

180 FOR J»i TO R:F0R K=1T0C: 
PRINT TAB(K*8-8);B(J,K); 

190 NEXT:PRINT:NEXT 

200 PRINT:PRINT"RESULTADOS:- 

210 FOR K=1 TO C-1 : PRINT TAB 

<8*K-8);A(K,C);:NEXT 
220 END 
230 REM 
240 D=A(L,L) 
250 FOR K=1 TO C 
260 A(L,K) = A(L,lO/D 
270 NEXTzRETURN 
280 REM 

290 FOR J = 1 TO R 
300 IF J=L THEN NEXT: RETURN 
310 F=A(J,L> 
320 FOR K-1 TO C 
330 A(J,K)=A(J,K>-F*A(L,K> 
340 NEXTrNEXT; RETURN 

La primera parte del programa, en- 
tre las line as 10 y 110, te permite in- 
troducir los datos, mientras que la se- 
gunda parte, situada entre las Ifneas 
120 y 150 llama a dos subrutinas (o 
procedimientos) para calcular la res- 
puesta, la cual se imprime entonces en 
las lineas 160 a 220. 

Los valores se cargan en la matriz 
A(J,K) a razon de una fila cada vez. 
En este programa, J se refiere a las fi- 
las y K a las columnas, lo cual has de 
tener siempre en la mente al leer el 
resto del programa. La matriz A(J,K) 
se copia sobre una matriz identica 
B(J,K) de forma que se pueden impri- 
mir los valores originales junto con la 
respuesta en la Ifnea 180. 

El calculo avanza de fila en fila, 
controlado por el bucle que se extien- 
de entre las lineas 120 y 150. Antes de 
hacer otras cosas, la rutina de las li- 
neas 230 a 270 extrae el elemento dia- 
gonal de la fila (es decir A(l,l), 
A (2.2). etc.) y divide cada elemento 
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dc dicha fila por ese valor. El valor del 
elemento diagonal resultante es ahora 
igual a uno, es decir, ha quedado nor- 
malizado. 

La siguiente rutina es la encargada 
de hacer la mayor parte del trabajo de 
este programa. Aunque solo contiene 
seis lineas, resulta muy dificil exami- 
nar lo que hace. La mejor manera de 
entenderlo es examinar a fondo un 
t ejemplo real (aunque corto) siguiendo 
uno por uno los pasos que va dando 
el ordenador. En esencia funciona de 
la siguiente manera. Supongamos que 
1 1 ya has normalizado la fila 1 , por lo que 
L es 1. La linea 290 toma entonces 
cada fila diferente de la 1 (linea 300), 
por lo que en este caso empieza por 
la 2. La linea 310 toma el primer ele- 
mento de la fila 2 y le llama F. Toda- 
via en la fila 2, la linea 320 va reco- 
rriendo todas sus columnas, y la linea 
330 multiplica F por el elemento co- 
rrespondiente de cada columna, pero 
de la fila 1, restandolo del elemento 
de la misma columna en la fila 2. Esto 
mismo lo va haciendo con las filas 3, 
4, 5 y 6. Seguidamente empieza otra 
vez con L igual a 2. 

Al final de este proceso, los elemen- 
tos diagonales de cada fila siguen sien- 
do y todos los demas elementos son 
ceros. Por eso se pueden leer con fa- 
cilidad los valores en la columna de la 
derecha. 



LOS REGALOS DE NAVIDAD 



El programa que acabamos de ver 
sirve para resolver cualquier sistema 
de ccuaciones lineales simultaneas en 
el que hay tantas ecuaciones como in- 
en los que las cosas se organizan de tal 
manera que no hay ecuaciones sufi- 
cientes, por lo que no se pueden re- 
solver de esta forma. De hecho no 
existe una solucion unica y el truco 
consiste en seleccionar la respuesta 
mas plausible entre todas las solucio- 
nes disponibles. Normalmente el enig- 
ma contendra una clave que te ayuda- 
ra. Tambien podria ocurrir que las 
ecuaciones resultaran ser no lineales. 

Ensaya ahora el siguiente enigma. 
En Navidad, el tio Alberto, que es un 



matematico un poco excentrico, expli- 
co a sus dos jovenes sobrinos que le 
daria a cada uno tantos paquetes como 
la edad que tenian (contando solo los 
ahos). Tambien les dijo que cada pa- 
quete contenia el mismo numero de 
sobres que la edad de cada uno, y que 
cada sobre contenia un numero de pe- 
setas igual a la edad de cada mho. 
Despues de preparar los regalos, se le 
oyo murmurar entre dientes que el si- 
guiente ano la cosa le iba a costar 500 
pesetas mas. ^Que edades tenian los 
dos ninos? 

Suprimiendo las palabras y Uaman- 
do A y B a las edades de los nihos, asi 
como M a la cantidad de dinero gas- 
tada en este aho, la solucion del enig- 
ma queda reducida a la de las ecua- 
ciones siguientes: 

AT3 + Bt3 = M; 
(A + 1) f 3 + (B + 1) f 3 = M + 
500 

Tenemos tres incognitas: A, B y M, 
pero solo dos ecuaciones. Sin tener un 
ordenador, podrias utilizar un metodo 
de prueba y error para ir ensayando 
diferentes valores de A y B, y obser- 
vando si las ecuaciones se satisfacen. 
El ordenador trabaja de una forma pa- 
recida, salvo que naturahnente puede 
hacer varios cientos o miles de ensa- 
yos de valores diferentes en un tiem- 
po muy corto y sin cometer errores. 

El primer paso en la re solucion del 
problema es buscar en el enunciado 
del enigma alguna pista suplementaria 
que te pueda ayudar a limitar el mar- 
gen de valores que debes ensayar. 
Como se habla de «jovenes» sobrinos, 
no es probable que tengan mas de 14 
anos, y es muy probable que al menos 
tengan tres anos. El programa para re- 
solver el problema es muy corto: 



para C-64 y Vic-20 



10 FOR A=3 TO 14 

20 FOR B=A TO 14 

30 r4=A A 3+B A 3 

40 N=(A+1) A 3+(B+1) A 3 

50 IF ABS(M+500-NX.01 THEN 

PRINT ,J A=";A,"B=";B 
60 NEXT B 
70 NEXT A 
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ECUACIONES SINGULARES 

Hay algunas situaciones espe- 
ciales, con frecuencia bastante 
tontas, en que los sistemas de 
ecuaciones simuMneas tienen o 
una solucion ambigua o carecen 
por completo de solucion. Las 
ecuaciones x = 2 y x = 3 obvia- 
mente no pueden satisfacerse al 
mismo tiempo, e incluso cuando 
tiene tantas ecuaciones corao in- 
cognitas, como en el caso x + y 
— 3; x + y = 1 no pueden cum- 
plirse simultaneamente. 

Otro caso son las ecuaciones 
x + y = 2; 2x + 2y = 4. En este 
caso se trata de dos ecuaciones 
que no son independientes; 
esencialmente se trata de la mis- 
ma ecuacion, existiendo muchas 
soluciones posibles. 

Cuando cuentes con el nume- 
ro de ecuaciones adecuado y 
siga habiendo incompatibilida- 
des o las ecuaciones no sean in- 
dependientes, se dice que el sis- 
tema es singular. 

El caso de las ecuaciones de- 
pendientes se puede resolver 
utilizando un metodo de prueba 
y error, como haciamos en el 
caso de los regalos de Navidad. 
Pero al ser posibles varias solu- 
ciones necesitas alguna informa- 
cion adicional para seleccionar 
la correcta. 




Al ejecutar este programa obten- 
dras solamente una respuesta, debido 
a las restricciones introducidas en las 
lineas 10 y 20. ,;jSi en el enigma no se 
hubiera especificado que los sobrinos 
son jovenes, el bucle FOR ... NEXT 
tendria que extenderse mas. Digamos 
de paso que la condicion impuesta en 
la linea 50 evita problemas con los 
errores de redondeo; lo que realmen- 
te se esta comprobando es si se cum- 
ple que M + 50 es igual a N. 

Este metodo debe funcionar para 
todos los problemas con mas incogni- 
tas que ecuaciones. En otros tipos de 
problemas, puede que te sea necesa- 
rio hacer hipotesis acerca de los valo- 
res de mas variables, o tal vez incluir 
mas condiciones IF . . . THEN del tipo 
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de la que aparece en la linea 50. Con 
un numero muy elevado de incognitas 
o de condiciones el programa puede 
tardar muchos minutos o incluso ho- 
ras en ejecutarse, aunque seguira sien- 
do resoluble. 



MAGIA MATEWIATfCA 



El tercer tipo de rompecabezas que 
aparecen en las revistas de informati- 
ca son los problemas de numeros. Sue- 
len plantear cuestiones de aritmetica 
aparentemente sencillas que resultan 
extraordinariamente laboriosas de re- 
solver a menos que se utilice un orde- 
nador. 

Aquf tienes un par de ejemplos. 

Existe un numero de cuatro cifras 
que cuando se invierte y se multiplica 
por un entero se convierte en el nu- 
mero original: 8712 = 4*2178. El pro- 
blema es encontrar si existen mas nu- 
meros con esta misma propiedad, y en 
caso afirmativo calcularlos. 

Otro numero interesante es el 
987654321. Este numero es un multi- 
plo exacto de 17 y utiliza todos los df- 
gitos del 1 al 9. Trata de encontrar el 
numero inferior mas proximo que ten- 
ga estas mismas propiedades. 

Las soluciones a este tipo de pro- 
blemas se basan en considerar el nu- 
mero como una coleccion de cifras 
mas que como uri valor numerico. 
Puedes, dividir el numero en unida- 
des, decenas, centenas, etc, o tratarlo 
como una cadena de cifras y separar 
estas con ayuda de los comandos de 
tratamiento de cadenas. 

El primer problema se resuelve me- 
diante el primer metodo. Si represen- 
tamos el numero por ABCD, da ori- 
gen a la siguiente ecuacion: 

1000*A + 100*B + 10*C + D = 
X*(1000*D + 100*C + 10*B + A) 

cuyas incognitas tienes que calcular. 
Como de costumbre la principal difi- 
cultad consiste en decidir que valores 
se ensayan. A puede variar entre 1 y 
9, no pudiendo ser cero ya que en ese 
caso tendrfas un numero de tres cifras. 
B y C pueden variar entre y 9. El fac- 
tor de multiplicacidn X debe ser al me- 
nos 2 y no debe superar a 10/D, para 
que el segundo miembro de la ecua- 



cion sea un numero de cinco cifras. 
Por la misma razon D no puede ser 
mayor que 4. Ahora puedes ya escri- 
bir el programa para resolver el pro- 
blema: 



10 FOR A-1 TO 9 

20 FOR B=0 TO 9 

30 FOR C=0 TO 9 

40 FOR D=1 TO 4 

50 FOR X=2 TO 1NTC9.9/D) 

60 J=100C*A+10C*B+1C*C+D 

70 K=1000*D+100*C+10*E+A 

80 IF X*K=J THEN PRINT J; 

'-";X;"*";K 
90 NEXT X,D,C,B,A 



Teclea el programa, a continuacion 
teclea RUN y sientate a esperar por- 
que llevara bastante tiempo la com- 
probacion de todas las combinaciones 
posibles. 

La solucion del segundo problema 
trata a los numeros como cadenas. 

Programa 4 S 6 4 C 



10 W=987654321 

20 M=tt-17 

30 M$=STR$CM) 

40 F=0 

50 FOR P=1 TO 9 

60 P$=CHR'$(4S+P) 

65 FOR Z=1 TO LENCMS) 

70 IF MID$(M$,Z,1)=P$ THEN 

90 
80 NEXT 2:F=F+1 
90 NEXT P:IF F=0 THEN PRINT 

|V;$;END 
100 G0TG 20 



El programa parte de 987654321 y 
va contando hacia abajo de 17 en 17, 
convirtiendo cada multiplo de 17 en 
una cadena de numeros a la que lla- 
ma M$. Las lineas 50 y 60 convierten 
cada digito del 1 al 9 en una cadena y 
a continuacion la linea 70 comprueba 
si dicha cadena figura en M$. Si hay 
algun digito que no este en M$, hay 
un indicador F que se incrementa una 
unidad. Solo se imprime M$ cuando 
con tiene todos los digitos del 1 al 9. 




Para 

saber como 
hablar con los 
ordenadores 

El Curso CEAC a Distance 

BASIC + Microordenadores, 

le va a introducir paso 

a paso, con un cuidado 

metodo, en uno de los temas mas 

apasionantes de nuestros dias: 

la programacion de ordenadores. 

Al aprender PRACTICANDO desde un principio 

a programar BASIC, lenguaje disenado 

especialmente para dar los primeros pasos 

en programacion, estara sentando las bases 

cara el estudio de cualquier otro 

lenguaje de alto nlvel. 

Curso CEAC 

de BASIC + Microordenadores: 
un dialogo permanente 
con el ordenador. 



Otros Cursos; 

- Introduction a 
la Informatica 

- EleCtronica [ton experiment 

- Contabilidad 

- Fotograffa 

- Curso de Video 

- Decoration 
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Aplicaciones 



COMO HACER " 
REFERENCIAS ' 
CRUZADAS ■ 



SEGUIMIENTO DE ERRORES 
DE PROGRAMACION 



USO DEL PROGRAMA 



BUSQUEDA DE CADENAS 

DE CARACTERES 

B USQUEDA CON SUSTITUCION 

LISTADO DE FUNCIONES 
Y PROCEDIMIENTOS 



Con esta practica utilidad en codigo 
maquina podras localizar en pocos se- 
gundos cualquier cadena de caracteres 
o cualquier palabra reservada dentro 
de un programa en BASIC, ahorran- 
dote gran cantidad de tiempo y esfuer- 
zo. Tambien podras hacer la sustitu- 
cion de una cadena por otra. 

El programa de referencias cruza- 
das que presentamos en este articulo 
es lo que se llama un programa de uti- 
lidades o simplemente una «utilidad». 
Esto significa que no hace nada el 
solo, sino que se utiliza como una he- 
rramienta para ayudarte a desarrollar 
otros programas. Por esta razon esta 
escrito en lenguaje maquina, a fin de 
que pueda ser cargado en el ordena- 
dor al mismo tiempo que un progra- 
ma en BASIC. El programa en len- 
guaje maquina se queda en la memo- 
ria del ordenador esperando a que se 
le llame cada vez que haga falta su 
ayuda. 

El programa se utiliza para realizar 
btisquedas de textos, con lo que te po- 
dras librar de tener que seguir peno- 
samente la pista a alguna determina- 
da seccion de un programa. Si le dices 
lo que cstas buscando — una cadena 
de caracteres. una palabra reservada, 
un nombre de variable o lo que sea — 
el programa se encargara dc buscarlo 
a lo largo del programa en BASIC y 
presentara todas las lineas en las que 
aparezca. Aparte de esto, tambien 
cuenta con una facilidad extra de «sus- 
titucion» que te permitira remplazar 
una cadena por otra a lo largo de todo 
el programa. 

El programa te resultara de la ma- 
yor utilidad cuando estes desarrollan- 
do o escribiendo un programa en BA- 
SIC. Por ejemplo, si llcgas a la con- 
clusion de que tienes que cambiar al- 
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gunas de las sentencias PRINT o IN- 
PUT, el programa te listara todas las 
lineas en que aparezcan dichas senten- 
cias. O si te das cuenta de que el nom- 
bre de una de las variables de tu pro- 
grama entra en conflicto con otras ru- 
tinas, puedes usar la option de bus- 
queda con sustitucion, cambiando el 
nombre por otro, sin tener que editar 
ni una linea. 

Tambien te resultara muy util tener 
cargado en el ordenador el programa 
de las referencias cruzadas cuando es- 
tes intentando adaptar o comprender 
un programa escrito por otra persona. 
Por ejemplo, puede ser un ejercicio 
muy fructifero imprimir todas las li- 
neas en que aparecen las palabras 
GOTO o GOSUB, ya que a partir de 
aqui rapidamente podras trazar la se- 
cuencia de sucesos. 

Tambien te ayudara a localizar y 
perseguir los errores de programacion 
que pueda contener tu programa. Por 
ejemplo, puede ser que descubras que 
una detcrminada variable tome valo- 
res incorrectos en alguna parte de tu 
programa. El procedimiento usual de 
trabajo en estos casos es buscar linea 
por linea, a lo largo de todo el progra- 
ma para localizar todos los sitios en 
que aparece dicha variable; es mas 
que probable que se te escapen unas 
cuantas. Sin embargo el programa de 
referencias cruzadas hara este trabajo 
por tf con toda precision en cuestion 
de segundos. 

El programa de referencias cruza- 
das forma parte de un paquete mas 
amplio de herramientas de programa- 
cion. El programa del que nos ocupa- 
mos aqui contiene un corto programa 
cargador escrito en BASIC y las sen- 
tencias DATA que contienen el codi- 
go maquina. Teclea el programa y al- 
macenalo antes de ejecutarlo, por si 




se te rompe al hacerlo. Seguidamente 
teclea RUN y, suponiendo que todo 
vaya bien, almacena el codigo maqui- 
na resultante tecleando: 



para Commodore-64 



POKE 43,0:P0KE 44,192:P0KE 



Aplicaciones 




45 ,47: POKE 46,195:CLR 
SAVE" REFCRUZ",1,1 

Cuando llegue el momento de utili- 
zar el programa necesitas cargar esta 
version del codigo maquina. Para ha- 
cerlo, pulsa: 



LOAD "REFCRUZ",1,1 

Tienes que hacer esta carga al prin- 
cipio de una sesion de programacion, 
antes de cargar un programa en BA- 
SIC. En cualquier momento puedes 
llamar al programa en codigo maqui- 



na utilizando SYS 49152, con lo que 
te apareceran las opciones disponi- 
bles. Recuerda que si estas utilizando 
una unidad de discos tienes que cam- 
biar por un 8 el primer 1 que figura en 
los comandos LOAD y SAVE ante- 
riores, 

INPUT 53 



Aplieeiciones 



Para buscar una determinada cade- 
na de caracteres, teclea L (de List) se- 
guida de los caracteres que quieres 
buscar, hasta un maximo de 76, y a 
continuation pulsa RETURN . El pro- 
grama te presentara todas las lineas en 
que aparece dicha cadena de caracte- 
res. 

Para reemplazar una cadena por 
otra, pulsa R seguida de la cadena ori- 
ginal, a continuation una barra incli- 
nada (/) y la cadena que habra de sus- 
tituirla, por ejemplo R ab/zz. Se pue- 
den sustituir hasta cuatro caracteres y 
la nueva cadena puede ser mas corta, 
pero no mas larga que la original. 

Si tecleas K seguido del nombre de 
una palabra rcservada, te apareceran 
listadas todas las lineas en que conten- 
gan dicha palabra. 

Si tecleas F seguida del nombre de 
una funcion definida por el usuario, el 
programa listara todas las lineas en 
que dicha funcion es definida o llama- 
da. 

Por ultimo, para salir del programa 
y regresar al BASIC, pulsa E. 

^^J para Commodore-64 

DATA 234,169,62,32,12,225, 
169,0,133,247,133,79,133, 
100,169, #1897 
10 DATA 3,133,101,32,18,225, 

201,76,240,50,201,82,240, 

107,201 ,#1915 
20 DATA 70,240,31,201,69,240 

,26,201,75,240,99,169,69, 

32,12, #1774 
30 DATA 225,169,82,32,12,225 

,32,12,225,169,13,32,12, 

225,76, #1541 
40 DATA 0,192,234,96,234,162 

,0,169,165,149,85,232,76, 

78,192, #2064 
50 DATA 234,162,0,234,32,38, 

194,160,0,234,177,100,201 

,0,208, #1974 
60 DATA 7,32,158,192,201,0, 

240,158,234,162,0,213,85, 

208,24, #1914 
70 DATA 165,101,133,102,132, 

103,234,228,96,240,86,232 

,32, 28, 194, #2106 
80 DATA 177,100,213,85,208, 

3,76,111,192,234,32,28, 

54 INPUT 



194, 76,84, #1813 
90 DATA 192,234,76,60,194, 
162,0,32,18,225,201,13, 
240, 6, 149, #1802 
100 DATA 85,232,76,142,192, 
76,202,194,234,32,28,194 
,177, 100,201, #2165 
110 DATA 0,208,28,32,28,194, 
177,100,201,0,240,18,32, 
28, 194, #1480 
120 DATA 165,101,133,95,152, 
133,94,32,28,194,32,28, 
194, 177, 100, #1658 
130 DATA 96,32,28,194,76,177 
,192,234,165,247,201,1/ 
208,3,32,#1886 
140 DATA 127,194,165,94,168, 
165,95,133,101,169,0,133 
,100, 177, 100, #1921 
150 DATA 133,252,32,28,194, 
177,100,133,253,72,138, 
72, 152,72,32, #1840 
160 DATA 181,193,104,168, 
104,170,104,32,28,194, 
234,177,1 00,201 ,34, #2024 
170 DATA 240,38,201,0,240,25 
,201,255,240,18,234,201, 
127 ,176 ,49, #2245 
180 DATA 201,0,176,9,32,28, 
194,76,250,192,76,0,192, 
76,171 ,#1673 
190 DATA 193,234,169,13,32, 
12,225,76,84,192,32,12, 
225, 165,79, #1743 
200 DATA 201,1,240,5,169,1, 
76,55,193,169,0,133,79, 
32 ,28, #1382 
210 DATA 194,76,250,192,234, 
165,79,201,0,240,11,177, 
100, 32, 12, #1963 
220 DATA 225,32,28,194,76, 
250,192,177,100,56,233, 
128, 170,152,72, #2085 
230 DATA 160,0,169,160,133, 
255,169,158,133,254,234, 
224, 0,240, 30, #2319 

240 DATA 177,254,201,128,176 
,11,192,255,208,2,230, 
255, 234, 200, 76, #2599 

250 DATA 99,193,234,202,192, 
255,208,2,230,255,234, 
200,76, 99, 193, #2672 

260 DATA 234,24,177,254,201, 
128,176,14,32,12,225,192 
,255,208, 2, #2134 



270 DATA 230,255,234,200,76, 

134,193,234,24,233,127, 

32, 12, 225, 104, #2313 
280 DATA 168,32,28,194,76, 

250,192,234,32,12,225,32 

,28, 194,76, #1773 
290 DATA 250,192,234/60,0, 

234,162,0,169,0,133,78, 

234,165 ,253,#2264 
300 DATA 201,0,208,6,165,252 

,201,10,144,30,234,165, 

252, 56,233, #2157 
310 DATA 10,133,252,165,253, 

233,0,133,253,224,255, 

240,4, 232,76, #2463 
320 DATA 191,193,234,230,78, 

162,0,76,191,193,234,165 

,252, 105, 48, #2352 
330 DATA 72,165,78,133,253, 

201,0,208,11,138,200,201 

,10, 144, 13, #1827 
340 DATA 133,252,76,184,193, 

234,138,200,133,252,76, 

184, 193, 234, 105, #2587 
350 DATA 48,32,12,225,234, 

104,32,12,225,136,192,0, 

208,246, 96, #1802 
360 DATA 234,192,255,208,2, 

230,101,234,200,96,234, 

32,18,225 ,201 ,#2462 
370 DATA 13,240,6,149,85,232 

,76,38,194,234,202,134, 

96 ,96 ,76, #1871 
380 DATA 0,192,234,169,1,133 

,247,162,0,234,32,18,225 

,201 ,47, #1895 
390 DATA 240,6,149,85,232,76 

,67,194,234,202,134,96, 

162 ,0,234, #2111 
400 DATA 32,18,225,201,13, 

240,6,149,89,232,76,87, 

194, 234, 202, #1998 
410 DATA 228,96,240,12,176, 

10,169,32,234,232,149, 

89,228, 96 ,208,#2199 
420 DATA 248,234,134,83,160, 

0,76,84,192,234,24,165, 

102 ,133,101, #1970 
430 DATA 164,103,162,0,234, 

181,89,145,100,228,96, 

240,10,232,32, #2016 
440 DATA. 28,194,76,137,194, 

76,57,194,234,162,0,32, 

28,194,177, #1783 
450 DATA 100,213,85,240,6, 



Aplicaciones 



201 ,0,208,240,234,96,234 

,165,101 ,133, #2256 
460 DATA 102,132,103,234,232 

,32,28,194,177,100,213, 

85,208 ,220,228, #2288 
470 DATA 96,240,187,76,182, 

194,76,57,194,169,0,133, 

251 ,169, 160, #21 84 
480 DATA 133,255,169,158,133 

,254,160,0,162,0,177,254 

,213, 85, 240, #2393 
490 DATA 35,201,128,176,49, 

192,255,208,2,230,255, 

200, 177, 254, 201, #2563 
500 DATA 128,144,243,192, 

255,208,2,230,255,200, 

230,251,165,251,201, 

#2955 
510 DATA 255,240,199,76,216, 

194,192,255,208,2,230, 

255,200,232,177, #2931 
520 DATA 254,213,85,240,242, 

201,128,144,207,233,128, 

213, 85,208, 214, #2795 
530 DATA 165,251,24,105,128, 

133,251,162,0,149,85,169 

,0,76,82, #1780 
540 DATA 192 
600 PRINT'TSHIFT+CLR/HOMEl": 

M=49152:F0R Z=0 TO 53: 

C=0:F0R ZZ=0 TO 14;READ 

X:P0KE M,X 
610 PRIKT ,: CCRSR arri balLINEA 

DATA ' ! ;PEEK(63)+256*PEEK 

<64):C=C+X:M=M+1 :NEXT 11 

:READ XS 
620 IF VAL(RIGHT$(X$,LEN(X$) 

-1))OC THEN PRINT"ERROR 

: VERIFICAR LA LINEA!": 

END 
630 NEXT Z:READ X:POKE M,X: 

PRINT'TSHIFT+CLR/HOME] 

DATAS OK" 

Si prefieres utilizar un 
ensambladcr o el cartuchc 
HESMON, uti Liza eL si- 
guiente Listadc equiva- 
lent e 

DIR. HEXADEC. REWQNICO 



,C000 
,C001 



EA 
A9 



NOP 

IDA #$3E 



,C003 


20 


OC 


E1 


JSR 


SE10C 


,C072 


FO 


56 




BEG SCOCA 


,C006 


A9 


00 




LDA 


#$00 


,C074 


E8 






INX 


,C008 


85 


F7 




STA 


$F7 


,C075 


20 


1C 


C2 


JSR $C21C 


,C00A 


85 


4F 




STA 


$4F 


,C078 


B1 


64 




LDA ($64),Y 


,C00C 


85 


64 




STA 


$64 


,C07A 


D5 


55 




CMP $55, X 


,C00E 


A9 


08 




LDA 


#$08 


,C07C 


DO 


03 




BNE $C081 


,C010 


85 


65 




STA 


$65 


,C07E 


4C 


6F 


CO 


JMP $C06F 


,C012 


20 


12 


E1 


JSR 


SE112 


,C081 


EA 






NOP 


,C015 


C9 


4C 




CMP 


#$4C 


,C082 


20 


1C 


C2 


JSR $C21C 


,C017 


FO 


32 




BEQ 


$CD4B 


,C085 


4C 


54 


CO 


JMP $C054 


,C019 


C9 


52 




CMP 


#$52 


,C088 


EA 






NOP 


,CC1B 


FO 


6B' 




BEQ 


$C088 


,C089 


4C 


3C 


C2 


JMP $C23C 


,C01D 


C9 


46 




CMP 


#$46 


,C08C 


A2 


00 




LDX #$00 


,CC1 F 


FO 


1F 




BEQ 


$C040 


,C08E 


20 


12 


E1 


JSR $E112 


,C021 


C9 


45 




CMP 


#$45 


,C091 


C9 


OD 




CMP #$00 


,C023 


FO 


1A 




BEQ 


$C03F 


,C093 


FO 


06 




BEQ $C09B 


,C025 


C9 


4B 




CMP 


#$4B 


,C095 


95 


55 




STA $55, X 


,C027 


FO 


63 




BEQ 


$C08C 


,C097 


E8 






INX 


,C029 


A9 


45 




LDA 


#$45 


,C098 


4C 


8E 


CO 


JMP $C08E 


,C02B 


20 


OC 


E1 


JSR 


$E10C 


,C09B 


4C 


CA 


C2 


JMP $C2CA 


,C02E 


A9 


52 




LDA 


#$52 


,C09E 


EA 






NOP 


,C030 


20 


OC 


E1 


JSR 


$E10C 


,C09F 


20 


1C 


C2 


JSR SC21C 


,C033 


20 


OC 


E1 


JSR 


$E10C 


,C0A2 


B1 


64 




LDA ($64),Y 


,C036 


A9 


OD 




LDA 


#$0D 


r C0A4 


C9 


00 




CMP #$00 


,C038 


20 


OC 


E1 


JSR 


$E10C 


,C0A6 


DO 


1C 




BNE $C0C4 


,C03B 


4C 


00 


CO 


JMP 


$C000 


,C0A8 


20 


1C 


C2 


JSR $C21C 


,C03E 


EA 






NOP 




,C0AB 


B1 


64 




LDA ($64), Y 


,C03F 


60 






RTS 




,COAD 


C9 


00 




CMP #$00 


, C040 


EA 






NOP 




,COAF 


FO 


12 




BEQ $C0C3 


,C041 


A2 


00 




LDX 


#$00 


,C0B1 


20 


1C 


C2 


JSR SC21C 


,C043 


A9 


A5 




LDA 


#$A5 


,C0B4 


A5 


65 




LDA $65 


,C045 


95 


55 




STA 


$55, X 


,C0B6 


85 


5F 




STA $5F 


,C047 


E8 






INX 




,C0B8 


98 






TYA 


,C048 


4C 


4E 


CO 


JMP 


$C04E 


,C0B9 


85 


5E 




STA $5E 


,C04B 


EA 






NOP 




,COBB 


20 


1C 


C2 


JSR $C21C 


,C04C 


A2 


00 




LDX 


#$00 


,COBE 


20 


1C 


C2 


JSR $C21C 


,C04E 


EA 






NOP 




,C0C1 


B1 


64 




LDA ($64),Y 


,C04f 


20 


26 


C2 


JSR 


$C226 


,C0C3 


60 






RTS 


,C052 


AO 


00 




LDY 


#$00 


, CO C4 


20 


1C 


C2 


JSR $C21C 


,C054 


EA 






NOP 




,C0C7 


4C 


Bl 


CO 


JMP $C0B1 


,C055 


B1 


64 




LDA 


($64), Y 


,C0CA 


EA 






NOP 


,C057 


C9 


00 




CMP 


#$00 


,C0CB 


A5 


F7 




LDA $F7 


,C059 


DO 


07 




BNE 


$C062 


,COCD 


C9 


01 




CMP #$01 


,C05B 


20 


9E 


CO 


JSR 


SC09E 


,COCF 


DO 


03 




BNE $C0D4 


,C05E 


C9 


00 




CMP 


#$00 


,C0D1 


20 


7F 


C2 


JSR $C27F 


,C060 


FO 


9E 




BEQ 


$C000 


,C0D4 


A5 


5E 




LDA $5E 


,C062 


EA 






NOP 




,C0D6 


A8 






TAY 


,C063 


A2 


00 




LDX 


#$00 


,C0D7 


A5 


5F 




LDA $5F 


,C065 


D5 


55 




CMP 


$55, X 


,C0D9 


85 


65 




STA $65 


,C067 


DG 


IS 




BNE 


$C081 


,CODB 


A9 


00 




LDA #$00 


,C069 


A5 


65 




LDA 


$65 


,CODD 


85 


64 




STA $64 


,C06B 


85 


66 




STA 


$66 


,CODF 


B1 


64 




LDA ($64), Y 


,C06D 


84 


67 




STY 


$67 


,C0E1 


85 


FC 




STA $FC 


,C06F 


EA 






NOP 




,C0E3 


20 


1C 


C2 


JSR $C21 C 


,C070 


E4 


60 




CPX 


$60 


,C0E6 


Bl 


64 




LDA ($64), Y 
INPUT 55 





Aplkaciones 






FD 




STA 


$FD 








,C1B9 A2 00 




,C0E8 85 


,C1 56 


AA 




TAX 




LDX #$00 


,COEA 48 






PHA 




,C157 


98 




TYA 




,C1BB A9 00 


LDA #$00 


,COEB 8A 






TXA 




,C158 


48 




PHA 




,C1BD 85 4E 


STA $4E 


,COEC 48 






PHA 




,C159 


AO 00 




LDY 


#$00 


,C1BF EA 


NOP 


,COED 98 






TYA 




,C15B 


A9 AO 




LDA 


#$A0 


,C1C0 A5 FD 


LDA $FD 


,COEE 48 






PHA 




,C15D 


85 FF 




STA 


$FF 


,C1C2 C9 00 


CMP #$00 


,COEF 20 


B5 


C1 


JSR 


$C1B5 


,C15F 


A9 9E 




LDA 


#$9E 


,C1C4 DO 06 


BNE $C1CC 


,C0F2 68 






PL A 




,C161 


85 FE 




STA 


$FE 


,C1C6 A5 FC 


LDA $FC 


,C0F3 AS 






TAY 




,C163 


EA 




NOP 




,C1C8 C9 OA 


CMP #$0A 


,C0F4 68 






PL A 




,C164 


EO 00 




CPX 


#$00 


,C1CA 90 1E 


BCC $C1EA 


,C0F5 AA 






TAX 




,C166 


FO 1E 




BEQ 


$C186 


,C1CC EA 


NOP 


,C0F6 68 






PLA 




,C168 


Bl FE 




LDA 


C$FE) 


,Y ,C1 CD A5 FC 


LDA $FC 


,C0F7 20 


1C 


C2 


JSP 


$C21C 


,C16A 


C9 80 




CMP 


#$80 


,C1CF 38 


SEC 


,C0FA EA 






NOP 




,C16C 


BO OB 




BCS 


$C179 


,C1D0 E9 OA 


SBC #$0A 


,C0FB B1 


64 




LDA 


($64), Y 


,C16E 


CO FF 




CPY 


#$FF 


,C1D2 85 FC 


STA $FC 


,GOFD C9 


22 




CMP 


#$22 


,C170 


DO 02 




BNE 


SC174 


,C1D4 A5 FD 


LDA $FD 


,COFF FO 


26 




BEG 


$C127 


,C172 


E6 FF 




INC 


$FF 


,C1D6 E9 00 


SBC #$00 


,C101 C9 


00 




CMP 


#$00 


,C174 


EA 




NOP 




,C1D8 85 FD 


STA $FD 


,C1Q3 FO 


19 




BEQ 


$C11E 


,C175 


C8 




INY 




,C1DA EO FF 


CPX #$FF 


,C105 C9 


FF 




CMP 


#$FF 


,C176 


4C 63 


C1 


JMP 


$C163 


,C1DC FO 04 


BEQ SC1E2 


,0107 FO 


12 




BEG 


$C11B 


,C179 


EA 




NOP 




,C1DE E8 


INX 


,C109 EA 






NOP 




,C17A 


CA 




DEX 




,C1DF 4C BF 


C1 JMP $C1BF 


,C10A C9 


7F 




CMP 


#$7F 


,C17B 


CO FF 




CPY 


#$FF 


,C1E2 EA 


NOP 


,C10C BO 


31 




BCS 


SC13F 


,C17D 


DO 02 




BNE 


$C181 


,C1E3 E6 4E 


INC $4E 


,C10E C9 


00 




CMP 


#$00 


,C17F 


E6 FF 




INC 


$FF 


,C1E5 A2 00 


LDX #$00 


,C110 BO 


09 




BCS 


$C11B 


,C181 


EA 




NOP 




,C1E7 4C BF 


C1 JMP $C1BF 


,C112 20 


1C 


C2 


JSR 


SC21C 


,C182 


C8 




INY 




,C1EA EA 


NOP 


,C115 4C 


FA 


CO 


JMP 


$COFA 


,C183 


4C 63 


C1 


JMP 


SC163 


,C1EB A5 FC 


LDA $FC 


,C118 4C 


00 


CO 


JMP 


SCOOO 


,C186 


EA 




NOP 




,C1ED 69 30 


ADC #$30 


,C11B 4C 


AB 


CI 


JMP 


$C1AB 


,C187 


18 




CLC 




,C1EF 48 


PHA 


,C11E EA 






NOP 




,C188 


B1 FE 




LDA 


($FE) 


,Y ,C1F0 A5 4E 


LDA $4E 


,C11F A9 


OD 




LDA 


#$0D 


,C18A 


C9 80 




CMP 


#$80 


,C1F2 85 FD 


STA $FD 


,C121 -20 


OC 


E1 


JSR 


$E10C 


,C18C 


BO OE 




BCS 


$C19C 


,C1F4 C9 00 


CMP #$00 


,C124 4C 


54 


CO 


JMF 


$C054 


,C18E 


20 OC 


E1 


JSR 


SE10C 


,C1F6 DO OB 


BNE $C203 


,C127 20 


OC 


E1 


JSR 


SE10C 


,C191 


CO FF 




CPY 


#$FF 


,C1F8 8A 


TXA 


,C12A A5 


4F 




LDA 


$4F 


,C193 


DO 02 




BNE 


$C197 


,C1F9 C8 


INY 


,X1 2 C C9 


01 




CMP 


#$01 


,C195 


E6 FF 




INC 


$FF 


,C1FA C9 OA 


CMP #$0A 


,C12E FO 


05 




BEQ 


$C135 


,C197 


EA 




NOP 




,C1FC 90 OD 


BCC SC20B 


,C130 A9 


01 




LDA 


#$01 


,C198 


C8 




INY 




,C1FE 85 FC 


STA $FC 


,C132 4C 


37 


C1 


JMP 


$C137 


,C199 


4C 86 


C1 


JMP 


SC186 


,C200 4C B8 


C1 JMP SC1B8 


,C135 A9 


00 




LDA 


#$00 


,C19C 


EA 




NOP 




,C203 EA 


NOP 


,C137 85 


4F 




STA 


$4F 


,C19D 


18 




CLC 




,C204 8A 


TXA 


,C139 20 


1C 


C2 


JSR 


SC21 C 


,C19E 


E9 7F 




SBC 


#$7F 


,C205 CS 


INY 


,C13C 4C 


FA 


CO 


JMP 


$COFA 


, C1 AO 


20 OC 


El 


JSR 


$E10C 


,C206 85 FC 


STA $FC 


,C13F EA 






NOP 




,C1A3 


68 




PLA 




,C208 4C B8 


C1 JMP SC1E8 


,C140 A5 


4F 




LDA 


S4F 


,C1A4 


A8 




TAY 




,C20B EA 


NOP 


,C142 C9 


00 




CMP 


#$00 


,C1A5 


20 1C 


C2 


JSR 


$C21C 


; ,C20C 69 30 


ADC #$30 


,C144 FO 


OB 




BEQ 


$C151 


,C1A8 


4C FA 


CO 


JMP 


SCOF/i 


i ,C20E 20 OC 


E1 JSR SE10C 


,C146 B1 


64 




LDA 


($64), Y 


,C1AB 


EA 




NOP 




,C211 EA 


NOP 


,C148 20 


OC 


E1 


JSR 


$E10C 


,C1AC 


20 OC 


E1 


JSR 


$E10C 


", ,C212 68 


PLA 


,C14B 20 


1C 


C2 


JSR 


SC21 C 


,C1AF 


20 1C 


C2 


JSR 


$C21C 


; ,C213 20 OC 


E1 JSR $E10C 


,C14E 4C 


FA 


CO 


JMP 


$COFA 


,C1B2 


4C FA 


CO 


JMP 


SCOFP 


i ,C216 88 


DEY 


,C151 B1 


64 




LDA 


($64), Y 


,C1B5 


EA 




NOP 




,C217 CO 00 


CPY #$00 


,C1.53 38 






SEC 




,C1B6 


AO 00 




LDY 


#$00 


,C219 DO F6 


BNE $C211 


,C154 E9 


80 




SBC 


#$80 


,C1B8 


EA 




NOP 




,C21B 60 


RTS 
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,C292 E8 

,C293 20 1C C2 JSR $C21 C 

,C296 4C 89 C2 J MP $C289 

,C299 4C 39 C2 J MP $C239 



INPUT 57 





Ap|icqci<> nes _ 






EA 






NOP 




,C2C 














C 85 


FB 


STA 


$FB 




,C29C 


,C2FC 


C9 


FF 


CMP 


#$FF 


,C29D 


A2 


00 




LDX 


#$00 


,C2CE A9 


AG 


LDA 


#$A0 


,C2FE 


FO 


C7 


BEQ 


$C2C7 


,C29F 


20 


1C 


C2 


JSR 


SC21C 


,C2D0 85 


FF 


STA 


$FF 


,C300 


4C 


D8 


C2 J MP 


SC2D8 


,C2A2 


B1 


64 




LDA 


($64), Y 


,C2D2 A9 


9E 


LDA 


#$9E 


,C303 


CO 


FF 


CPY 


#$FF 


,C2A4 


D5 


55 




CMP 


$55, X 


,C2D4 85 


FE 


STA 


$FE 


,C305 


DO 


02 


BNE 


$C309 


,C2A6 


FO 


06 




BEQ. 


$C2AE 


,C2D6 AO 


00 


UY 


#$00 


,C307 


E6 


FF 


INC 


$FF 


,C2A8 


C9 


00 




CMP 


#$00 


,C2D8 A2 


00 


LDX 


#$00 


,C309 


C8 




INY 




,C2AA 


DC 


FO 




BNE 


$C29C 


,C2DA B1 


FE 


LDA 


($FE) 


,Y ,C30A 


E8 




INX 




,C2AC 


EA 






NOP 




,C2DC D5 


55 


CMP 


$55, X 


,C30B 


B1 


FE 


LDA 


($FE),Y 


,C?.AD 


60 






RTS 




,C2DE FO 


23 


BEQ 


$C303 


,C30D 


D5 


55 


CMP 


$55, X 


,C2AE 


EA 






NOP 




,C2E0 C9 


80 


CMP 


#$80 


,C30F 


FO 


F2 


BEQ 


SC303 


,C2AF 


A.5 


65 




LDA 


$65 


,C2E2 BO 


31 


BCS 


SC315 


,C311 


C9 


80 


CMP 


#$80 


, C2B i 


85 


66 




STA 


$66 


,C2E4 CO 


FF 


CPY 


#$FF 


,C313 


90 


CF 


BCC 


$C2E4 


,C2B3 


84 


67 




STY 


$67 


-,C2E6 DO 


02 


BNE 


$C2EA 


,0315 


E9 


80 


SBC 


#$80 


,C2B5 


EA 






NOP 




,C2E8 E6 


FF 


INC 


$FF 


,C317 


D5 


55 


CMP 


$55, X 


,0286 


E8 






INX 




,C2EA C8 




INY 




,C319 


DO 


D6 


BNE 


$C2F1 


,C2B7 


20 


1C 


C2 


JSR 


SC21C 


,C2EB B1 


FE 


LDA 


($FE) 


,Y ,C31B 


A5 


FB 


LDA 


$FB 


,C2BA 


B1 


64 




LDA 


($64), Y 


,C2ED C9 


80 


CMP 


#$80 


,C31D 


18 




CLC 




,C2BC 


D5 


55 




CMP 


$55,X 


,C2EF 90 


F3 


BCC 


$C2E4 


,C31E 


69 


80 


ADC 


#$80 


,C2BE 


DO 


DC 




BNE 


$C29C 


,C2F1 CO 


FF 


CPY 


#$FF 


,C320 


85 


FB 


STA 


$FB 


, C2 CO 


EA 


60 




CPX 


$60 


,C2F3 DO 


02 


BNE 


$C2F7 


,C322 


A2 


00 


LDX 


#$00 


, C2 C2 


FO 


BB 




BEQ 


SC27F 


,C2F5 E6 


FF 


INC 


$FF 


,C324 


95 


55 


STA 


$55, X 


,C2C4 


4C 


B6 


C2 


JMP 


$C2B6 


,C2F7 CS 




INY 




,C326 


A9 


00 


LDA 


#$00 


,C2C7 


4C 


39 


C2 


J MP 


$C239 


,C2F8 E6 


FB 


INC 


$FB 


,C328 


4C 


52 


CO J MP 


$C052 




A9 


00 




LDA 


#$00 


,C2FA A5 


FB 


LDA 


$FB 

























LOS MEJORES DE INPUT 
COMMODORE 

PUESTO TTTULO PORCENTAjE 

1° Commando 18,2 % 

Z.° Green Beret 15,5% 

3.° Skyfox 12,3 % 

4.° Kung fu master / 0,2 % 

5." Rambo 9,9% 

6° Uridium 9,6 % 

7." Hardball 9,3 % 

8.° The Eidolon 5,3% 

9° The way of the tiger 4,9 % 

10° Mision Imposible 4,8 % 



100% 

Para la confeccion de esta relacion unicamente se nuestros lectores de acuerdo con la seccion «lc 
ban tenido en cuenta las votaciones enviadas por Mejores de Input*. 
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LAS SERIES TELEVISIVAS MAS EMOCIONANTES 
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KIT DE UTILIDADES VORPAL 



EL VorpaL Utility Kit es un 
con junto de her rami entas de 
software destinadas a La 
unidad de diskettes 1541, 
desarrollado por Epyx y 
reci^ntemente distribuido 
en nuestro pais. Una 
carpeta incLuye el disco y 
un manual de instruciores 
en castellano. 
El VorpaL presenta un menu 
de 5 opciones : 

(a)-VoLver al BASIC 

(b)-Uti Lidades para 
fi cheros 

(c)-Alineamiento de la 
cabeza y control de La 
velocidad de giro del motor 

(d)-Uti Lidades Vorpal 

(e)-InstaLacion de 
cargadores . 

En te.rminos genera Les se 
puede decir que eL invento 
de Epyx es un multi pli cador 
de velocidad. 

Realmente,eL incremento en 
la velocidad de 
transferencia de Los datos 
entre ordenador y unidad de 
disco se basa en un cambio 
del sistema operative del 
mane jo de discos, realizado 
mediante software. Se 
altera es el contenido del 
kernal de La unidad al 
tiempo que se define un 
nuevo tipo de fichero, 
llamado VorpaL. 
Cuandc se Lee y vi sua Liza 
el direct or io del disco 
aparecen a La derechs de 
Los nombres de Los fi cheros 
tres Letras, que indican el 
tipo de que se trata: PRG^ 
Programa, SEQ= Secuencial, 
USR= Usuario, REL= 
Relative. Bueno, pues el 
Vorpal produce una nueva 
de1inici.6n: SR?. 
La segunda epeien del men6 
:f~iite eleglr de entre un 
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amplio surtido de 
posibi Lidades tales como 
rename disk, validate, 
format ( formateo en 25 
segundos ), 

delete,. etc ... »t1pi cos del 
DOS (disk operating system) 
wedge. Sin embargo otras 
uti lidades vienen a 
enriquecer los recursos del 
usuario de disco. Pack es 
un programa de copia rapida 
que permite rescartar Los 





ficheros VorpaL en otro 
disco a una velocidad 
respetabLe. Change file 
type convierte los ficheros 
de cualquiera de los 5 
tipos en cualquiera de los 
otros A; estc es de PRG a 
SR?, SEQ a PRG, etc.. Todas 
Las combinaciones son 
posibles aunque la 
verdadera ventaja consiste 
en pasar los ficheros PRG a 
SR?. 
Otra de las opciones 



atipicas es protect file y 
su antidote unprotect. Son 
comandos que protegen 
( hacen imborrable ) o 
desprotegen (vuelven a 
convertir en borrable ) 
cualquier tipo de fichero 
incluido el SR?. Esta 
utilidad es bastante 
reducida en La practica ya 
que uno no anda borrando 
ficheros, aunque es 
interesante poder 
desproteger aLguno 
di rectamente. 
La opci6n set boot file 
permite que eL Vorpal 
reorganice el BAM colocando 
eL fichero en primer lugar 
en el directorio , de tal 
manera que Luego baste con 
escribir LOAD"*", 8,1 para 
cargar Lo« 

La tercera opcicn incLuye 
un al^'- ador de cabezas. Se 
supone L.;ue el ajuste se 
realiza automat i camente sin 
tener que manipular partes 
mecanicas. El programa 
monitoriza la alineaci6n 
mediante un numero. Si esta 
comprendido entre 1 y 25 la 
alineacion es buena, entre 
26 y 50 es aceptable y 51 o 
mas indica desastre. No 
tuvimos oportunidad de 
comprobar su 
f uncionamiento, pues 
nuestras unidades de disco 
indicaban en todo memento 
ur. 26. 

De un mo do igualmente 
sencillo se puede testear 
La velocidad de giro del 
disco. Una cifra indica el 
f unci onamientc de la 
unidad. Si esta comprendido 
entre 29? y 303 es 
correcto, en case contraric 
habra que acudir a un 
servicio t£cr.ico. Nuestras 
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unidades arrojaron siempre 
un 299 y dos decimaLes 
vari ables. 

La cuarta opcicn es un 
copiador de discos no 
protegidos. Es bastante 
bueno y sobre tcdo util. 
Por otro Lade eL cambio de 
sistema operative del disco 



altera el modo de aLmacenar 
La informacion. EL Vorpal 
genera bLoques contiguos 
bi secuencia Les, de este 
modo se graba pista tras 
pista. Este tipo de 
almacenamiento no es 
cLasico en otros sistemas 
operativos. 



EL mane jo de este kit es 
tremendamente facil, reali- 
zandose integraroente por 
menus. Lo mas notable es el 
importante aumento de la 
velocidad de trabajo con 
que se dota a Las hasta 5 
unidades .de disco que pueden 
controlarse con el Vorpal. 



••••••••••••••••••••••••-A-*** 



SOFTACTUALIDAD 



4DONDE ESTA 
CARMEN 
SAN DIEGO? 

i)n prograira con un nombre 
tan curioso no es otra cosa 
que un juego 

conversacicnal, en el que 
debes atrapar aL jefe de 
una organizaci6n 
i nternacionaL de ladrones 
profesionales cuyc cereb re 



Nepal, quien rueda una 

pelicula de boxeadores y le 

han robado una bobina. 

La resoluciin de Los cases 

te permitira If 

construyendo un perfIL del 

jefe del cLan. 

EL juego utiliza ventanas 

multiples en las que ves 

aparecer informes, notes de 

viaje, pistas, etc.. 

Las ventanas se superponen 

y desaparecen en La medida 



estudic de grabacion en el 
que se incluye un curso de 
bateria complete y un 
metodo de aprendizaje en la 
maestrla de la tecla. 
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parece ser La senorita 
Carrr:er Sandiego. 
EL ncmbre clave que te 
asignan para la misi6n 
Rockie y eres un agente de 
La Interpol. 
De ahora en adeLante 
pasaras un tiempo en los 
aviones que te LLevan a 
V i s i t a r a Las i s L a s 
Seychelles e inclusc a un 
monje budista, aL que han 
robado su toga, o a un tal 
Silvester StuLune en eL 



en que van necesi tandose 
para dar mas realidad a La 
t rama . 

•••••••••••••- . 

ROCK AND ROLL 
MAMA!! 

Suenas con emuLar a Jaeger 
c Phi 11 CoLins y estas 
frustrado. Rock and Roll 
Mama te da La so Luc i An. Te 
pone en casa un autentico 



Podreis ensayar en La 
bateria unos cuantos 
compases y pedirle aL 
t^cnico de la cabina de 
control que reproduzca Lo 
que acabas de tocar o que 
cambie alg6n parametro del 
sonido,etc. 

El programa genera ficheros 
di rectamente compi Lades que 
puedes incluir en tus 
j uegos. 

•••••••••+*•• 
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LAS SIRENAS TAMBIEN AMAIM 



Las sirenas viven muchos 
anos y normalmente no 
representan La edad que 
tienen. Este es el caso de 



aspecto humano cuando pisa 
La tierra. 

Su amado queda atrapado 
entre los restos de un 



control se reaLiza 
directamente a traves del 
joystick. La si rena debe 
evitar a La criaturas 




Myrtle, una oronda y 
voLuptuosa princesa del 
fondo de Los mares que 
acaba de cumplir 112 
primaveras. Sus escamas se 
vueLven mas verdes cuando 
ve aL submari ni sta Gormless 
Gordon. Sin embargo no hay 
graves probLemas que Les 
separen, porque toma 





DATOS GENERALES 




TITIJLO Mermaid Madness 




FABRICANTE Electric Dreams 


4 


ORDENADOR Commodore 64 




TEMA DEL PROGRAMA 




Rescate submarino 




w^^wd 




CALIFICACION (Sobre 10 ptos.) 


"■"■"'. 


ORIGINAUDAD 9 




INTERES 7,5 




GRAFIGOS 8,5 




COLOR 8,5 




SONIDO 8 




TOTAL 41,5 



t ransat Lantico hundido y tu 
mision C la de Mirtle), 
consiste en recorrer Las 
cuevas en busca de 
elementos que ayuden a 
socorrer al infortunado 
buceador. Es una carrera 
contra el tiempo, pues Las 
boteLlas de oxigeno tienen 
una capacidad limitada. EL 




marinas, que Le robaran 
energia at mas mini mo roce. 
Una boteLLa inclinada 
representa La cantidad de 
energia vital que posee. El 
hallazgo de nuevas botelLas 
ocultas aportara una 
cantidad de energia. 
Fara conocer cuan cerca se 
encuentran los amantes en 
cada momento, existe un 
coraz6n palpitante en La 
parte superior de La 
pantalla, que se acelera aL 
aumentar La proximidad 
entre ambos. 

Tanto Los graficos como La 
animaci6n son excelentes. 
Es un juego entretenido, 
situado entre la aventura y 
eL juego de arcade. 






• •••••••••••••••••••••••••it* 



LA GUARIDA DEL DRAGON 



Alguien pocc a cert ado dijc 
que Las aventuras con 
dragones y princesas eran 
cosas del perdidas en el 
pas ado. Nad a mas lejos de 
La re I i dad, como vamos a 
ver. 
Este programs se remonta 
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rnucho tiempo atr£s, en una 
epoca magica, cuando un rey 
LI amado Aet he red reinaba en 
un pais gobernado por la 
paz y los buencs deseos. 
Lugar pleno de increlbles 
tesoros, pero el mas 
pre ci ado per su valor y 



beLLeza era La propia hija 
del rey, La princesa 
Daphne. 

Un ma I dia triste y gris 
matvado drag6n exigio al 
rey y a sus subditos el 
abandono de sus tierras. 
Ante una rotunda negatiua 



un 
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rapt* a la p r i n c e s a - f 
encerrandoL a en su palacio 
encantado, en eL interior 
de una bola de cristaL. 
A partlr de ahora ya tienes 
trabajo. Eres Dirk, eL 
caballero ertre Los 
cabaLLeros, y tienes sole 
un pensarr:ier;to: Fenetrar 
en La guarida del dragon, 
destruirle y re s cat a r a 
Daphne . 

EL juego esta dividido en 9 
etapas, cada una de eLLas 
proporciona un paso hacia 
et exito de La empresa. 
La primera es La caida deL 
disco, una pLataforma que 
actua como ascensor. Unos 
etereos genios malvados te 




sopLaran con fuerza para 
obLigarte a caer fuera del 
disco, Peligro, son 7 Las 
malvadas y transparentes 
criaturas. 

Despues veras aparecer una 
pLanta a La derecha, pero 
no te bajes, puede ser 
aortal. Espera en eL disco 
y aparecerA otro genio y La 
c:a-*a er : . a que tienes que 
bajar. Nc te ent retengas, 
soLo tienes unas d£cimas de 
segundo para saLtar. En 
cuanto pises sueLc fierce 
puedes Lanzar un respiro de 
aLlvio, porque veras come 
se estreLLa La pLata^crrra 
en el fondo deL abismo 
Ya estas en la segunda 
fase: EL vestibulo deL 
craneo. Ahora debes 
atravesar un pasiLLo LLenc 
de puertas desde Las que 



eres agredido por 
murcieLagos, huesos, 
craneos, esqueLetos e 
ircLuso otras aves a I finaL 
del. pa si L L o. Observaras una 
caracterlstica que aparece 
en otras dos fases 
post eri ores C eL cuarto de 





DATOS GENERALES 




HTULO Dragon's Lair 
FABRICANTE Software Dreams 
ORDENADOR Commodore 64 

TENIA DEL PROGRAMA 

Aventura medieval 




wiw^^d 




CALIFICACION (Sobre 10 pros.) 




ORIGINAUDAD 8,5 
INTERES 9 
GRAFICOS 9 
COLOR 8 
SONIDO 7,5 




TOTAL 42 



armas y La habitaci6n del 
tentacuLo, fases 4 y 6 ). 
Los movimientos se apLican 
desde eL joystick en eL 
moment c oportuno. Si Lo 
haces a destiempo te cuesta 
una vida y sclo tienes 5 
vidas. Hay una pista, el 
programs te da un tcno 
grave cuando haces un 
intento erroneo; pero raueha 
paciencia, porque tendras 
que jugar infinidad de 
v e c e s - 

Si Logras pasar esta fase, 
LLegas a la cuerda que se 
quema. Tras saLtar sobre 
una superficie de piedra 
cue se va desmoronando, 



tendras que ir de cuerda er 
cuerda saltando como 
Tarzan, con La agravante de 
que Las cue r das se van 
quemando. 

EL final del juego es 
evidente : Una Luc ha a 
muerte con eL drag6n. 





Dragon's Lair esta basado 
en el juego de' mismo 
ti-tulG que emplea una 
combi nacion de dibujos 
aniir.adcs en videodisco 
(Lei do con ayuda de Laser) 
y vi dec juego. A pesar de 
Las enormes diferencias que 
Le s e pa ran del original, 
esta versiin para 
mi croordenadcr es de una 
gran aLtura, tantc por La 
cuidada caLidad de sus 
graficos como por eL 
sonio'o. EL 6r\i co reproche 
que ! e racemes es fa 
Untitud eri reiniciar eL 
juego cada vez que se 
pierde una vida. 



Si se te hace dilicil eiicontrar INPUT 

en (u kiosco habitual, 

reservalo por adelantado, o haznoslo saber 

para que podamos remediaiio 




CORRUPCION EN MIAMI 



:r;:r esta a puntc 
. 5'T" rse en eL 

se La corrupci6n 
r_~ e~ '"" ami hay- Sin 

zz, Crockett y Tubbs 
- -- : . . 1 para limpiar sus 
ircuitcs de cuatquier 
at i s: : :e cri men 
:-ra' ~ zado. 





Mientras se carga eL 
programa aparece un 
revolver humeante junto al 
Logotipo de La pcpuLar 
serie televisiva. 
For Lo pronto puedes 
pilot a r- via joystick- el 
fastuoso Ferrar i-Testarosa 
de Sonny, comenzandc a 
patruLLar par Las catles de 
La ciudad entre Las verdes 
palmer as de F" I or -'da. Te 
acompona la pegadiza 
melodia musical de La 
serie. EL control de un 
coche Lan potente se hace 
d'i 1 \ ci I y puedes 
estrellarlo si no conduces 
con p-recauf 1 * 6n. Una vista 



aerea del entorno del 
automivi I va desplazandose 
en la medida en que 
avanzas. 

Recibes un soplo en torno a 
un alijo de contrabando a 
punto de LLegar y has de 
reum'r Las pruebas y 
evidencias que te LLeven a 



.;.... T 


DATOS GENERALES 




ITTULO Miami Vice 




FABRICANTE Ocean 




ORDENADOR Commodore 64 




TENIA DEL PROGRAMA 




Investigacion policial 




^5^r5^5^SrtfS^^fSrSnS^3r 
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CALIFICACION (Sobre 10 pros.) 




ORIGINAUDAD 8,5 




INTERES 9 




GRAFICOS 8,5 




COLOR 8,5 




SONIDO 8 




TOTAL 42,5 



solucionar eL case. Has de 
ent revi starte con tus 
contactos habituates en 
determinados bares y 
establecimientcs de La 
Localidad. 

LLegados a un punto de 
interes, ha de apearse uno 
de los dos (qui en elijas), 
mientras el otro permanece 
sent ado a I vol ante. En ese 
memento el aspecto de La 
pants L La Gambia, mostrando 
el interior del 
establecirriento, asi come 
al detective portando su 
Rag n urn en La ma no. A qui 
puedes encontarte con slg6n 
sujeto poco recomendable e 



incluso recogeras la 
heroina simplemente pasando 
sobre eLLa. 

A su vez, la pant alia se 
divide en ventanas, 
apareciendo un reLoj 
calendario que avanza 
inexorablemente y un 
indicador da el chivatazo 




cuando pasas ante algo que 
merece La pena investigar. 
Dispones unicamerte de una 
semana para ar restar al 
pel igroso mi ster J . 
Asimismo aparecen las 
puntuaciones que vas 
Logrando. For otro Lade se 
indica el modo en el que 
esta's inmerso, sea 
busqueda, conduccion. . . o 
presto a disparar. En todo 
caso siempre puedes eLeg'r 
Lo que hacer, en funci6n 
del I etr ero parpadeante. No 
puedes realizar dos cosas 
aL mis mo tiempo, por Lo que 
habras de elegir en todo 
moment o Lo mas adecuado. 
[]n c on se j o : 1 i ) a t e bi en en 
el coche rojcy, sobre todo, 
cuida -tu pellejo en los 
antros del vicic de Miami . 
EL prog re so en eljuegc es 
Lento, pero Las emociones 
ocultas, Los sensacionaLes 
grifieos y La pulida mi!isica 
hacen que Fiami Vice sea 
cualquier cosa menus 
tedicsc- 
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ii EL JUEGO DE LAS MAQUINAS QUE S0RPREND10 A TODOS!! 

... Por su parecido a una pelicula de dibujos animados. 

En tu intento de rescatar a la bella Frincesa de las garras del 

diabdlico Dragon, tu, nuestro heroe, has de abrirte paso a 

traves del castillo encantado por el Mago Negro. 

Muchos son los peligros que te acechan y pocas his 
defensas, solo tu espada y tu habilidad... 

/ADELAffTE AVEftTVRERO, EL DESAFIO TE ESPERAl 
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Muchos abandonaron en el camino, pero otros (pocos) llegasteis 
hasta eL final en eL reto pLanteado, FinaLmente hubo que realizar 
un sorteo, imparcial por supuesto, aL que asistimos elementos de 
La redacci6n de INPUT y personal de Anaya Multimedia. 
Los mensajes planteados tenian como respuesta lo siguiente: 
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El intrepido y sagaz 
descifrador de cLaves se Llama 
ManueL Bautista L6pez. Todo un 
hallazgo para Los servicios de 
inteLigencia de cualquier 
pais, que no dudamos se Lo 
rifaran cuando este ejemplar 
caiga en sus manos. Todo un 
criptofuturo por delante. 

En la fotografla podemos 
apreciar a nuestro afortunado 
Manuel disfutando de su 
estancia en el PCW Show de 
Londres. Le acompana Santos 
Rodriguez, director de 
producto y delegado de Anaya 
Multimedia para eL 
signi f i cativo evento. 



"ES UNA VIOLENCIA FINGIDA PUES SE TRATA DE 
UN TIPO DE CAJA INACCESIBLE A CUALQUIER 
i TIPO DE PALANCA". 

" LAS ATADURAS NO SON DE UN PROFESIONAL DA 
LA IMPRESION DE QUE TENIAN MIEDO DE 
LESIONARLE". 

"TIENE LA COSTUMBRE DE MORDER LAS COLILLAS 
DE LOS CIGARROS QUE FUMA SIN PARAR HASTA 
DESHACERLAS". 

"EN EL REGISTRO EN LA CASA DE LA Victima 
aparecieron Las joyas habi Lmente CAMUFLADAS 
BAJO EL SUELO DEL D0RMIT0RI0". 



"A PESAR DE ESTAR BASTANTE QUEMADA EN LA 
COLILLA SE PODIAN DISTINGUIR PERFECTAMENTE 
LAS MARCAS DEJADAS POR LOS INCISIVOS DE UN 
FUMADOR NERVIOSO 1 ' u c , 
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La deseada continuacion de "EXPLODING FIST" 

ya es una realidad; FIST II es mucho mas que una segunda parte: 

mas de 1 00 pantallas y 700 sprites diferentes en las que 

los oponentes al "GRAN MAESTRO" se esconden en bosques, acantilados, 

cavernas y lugares con paisajes que te asombraran. 

"Exploding Fist" fue la revelacion; "FIST II", la consagracion . 
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pero lo q ue yo nccesita.. 
es este Commodore 128. 
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Y lo necesito porque es el mas 128 de todo el 
mercado. Porque es 3ordenadores en uno so- 
lo, solo con pulsar una tecla. 

Lo necesito porque es compatible con el 
C-64, y todos sus programas. 



commodore 



Lo necesito, porque ya que me decido, quie- 
ro lo mejor. 

Lo necesito , porque todavia hay un par de vi- 
deo juegos en los que me gana mi vecino 
yeso nopuede ser. 
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